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NUEVAS NECESIDADES 
DE LOS USUARIOS 



A medida que pasa el tiempo y los usua- 

/\ rios conocen mejor los equipos con 

/ 1 los que trabajan, sus demandas hacia 

los medios de comunicacidn especializados, 

tamhien se modifican. 

INPUT no podia permanecer insensible a 
esas nuevas tendencias, tan naturales como el 
paso del tiempo, y decidio ir renovdndose a 
si misma. 

Ya habrels observado que tanto en algunos 
contenidos como en las presentaciones, en 
numeros anteriores, se han introducido no- 
vedades. En este ejemplar que ahora tenets 
en vuestras manos los camblos ya afectan a 
una parte considerable de la revista. 

De entrada debemos aclarar que en ningun 
caso se pretende romper con una tradicion 
que ha conectado muy hien con los deseos de 
nuestros lectores, como nos consta por la 
aceptacion y venta de INPUT y por las nu~ 
merosas cartas que en la redaccion se reciben 
todos los meses. 

Si se anhela, en cambio, dar cabida a esas 
nuevas necesidades que antes menciondba- 
mos. No es un reto fdcil, piies se trata de in- 
tentar conciliar cosas aparentemente tan con- 
tradictorias como la informacion mas com- 



pleta sobre video juegos y todo el entorno que 
ello comporta, por un lado, y el diseho y pre- 
sentacion de utilidades, aplicaciones y nocio- 
nes de programacion de forma educativa, 
clara, comprensible y amena, por otro. 

Esta necesidad permanente de formacion 
se inscribe en el marco de una oferta infor- 
mdtica que siempre ofrece mas a un menor 
coste. Logicamente, quienes hoy comienzan 
con pequehos micros domesticos operardn 
mahana con potentes ordenadores persona- 
les. En esta perspectiva el poso de conoci- 
mientos generado en la primera fase sera de 
incalculable utilidad en el futuro. 

Asi pues, el mundo de la informdtica, y 
aunque con rasgos propios la microinfor- 
mdtica domestica forma parte de el, tiene que 
construir una nueva forma de hacer que for- 
zosamente pasa por conseguir que su presen- 
cia sea imprescindihle tanto a la hora de tra- 
bajar como a la de jugar. En este empeno 
INPUT continua a vuestro servicio pensando 
siempre en ofreceros cosas nuevas a la vez 
que prdcticas. 

Vosotros sois quienes finalmente decidirels 
si, con tales fundamentos, INPUT responde 
plenamente a vuestras demandas. 



4 INPUT 
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^icaciones 




AMPLIA TU CURSO 
DE MECANOGRAFIA 



1 



Esta vez puedes extender tu pericia a 
las teclas de numeros y a todos los res- 
tantes simbolos del teclado. Hay adeiiias 
un programa de juego que te ayudara a 
aumentar toda\ ia mas tu rapidez en la 
escritura. 

Si has trabajado ya con el instructor 
mecanografico que publicamos en IN- 
PUT, estaras familiarizado con todas 
las teclas de letras y de puntuacion de 
las tres hileras inferiores del teclado. 
Pero aim no has tocado las siempre 
importantes (en los lisiados de progra- 
mas) teclas numericas, ni has apren- 
dido como modificar las teclas para 
obtencr letras mayusculas o minuscu- 
ias, asi como los simbolos adicionales 
y de puntuacion disponibles. 

EI programa de esta seccion te 
muestra como aiiadir todo esto a tus 
crecientes habilidades mecanografi- 
cas. Ademas, hay un ejercicio que te 
permitira incremcntar tu velocidad, tu 
seguridad y tu ritmo. Y ademas es di- 
vertido. 



ADlCfON DE LOS NUMEROS 

Al igual que con el programa ante- 
rior la adicion de la linea de numeros 
del teclado puede Uevarse a cabo con 
una simple modificacion del programa 
original utilizado en las lecciones an- 
teriores. Para ello, carga el ultimo 
programa y teclea estas lineas adicio- 
nales. Algunas de ellas sustituyen a li- 
neas existentes. mientras que otras 
van numeradas de modo que queda- 
ran inciuidas entre las que ya tienes. 

1!^ DIM W$(21), W0$(28): FOR 

Z=l TO 28: READ WO$(Z): 

NEXT 
20 FOR Z=l TO 4p: LI$ = L1$-H"- 

"NEXT :L[$ = " 

[CTRL+2]"-fLI$ 
30 PRINT'TSHIFT+CLR/HOME] 



[CTRL + 8]"TAB(7)"*****ME 

CANOGRAFIA*****" 
40 A$="1A2S3D4F5G6H7J8K 

9L0: ":P0KE 54296, F515 

:GOTO380 
50 TI$ = "000000":S-0:WW=1 
50 N-0:POKE198,0 
70 iFK = 5ANDP>0THENN = N + l 

:P = P+1:GOTO140 

80 PRINT"[CLR/H0ME][8*CRSR 

ABAJ0]":1FK<3THENPRINT 

TAB(10) 

'TCTRL+411CTRL + 9]" 

A$POKE198,0 
90 X=INT(RND(1)*20) + 1 

:N-N-F1:P-P-M':IFK=1 

THENX-N:GOTO120 

100 IFK = 3THENX=INT 

(RND(1)*20) + 1:PRINT TAB 
C18)'TCTRL + 4][C0MM + A]- 
[COMM-fS][CRSRABAJO][ 
3*CRSRIZQDA.]l[CTRL + 6]" 
MID$(A$,X,1) 
'TCTRL+4][CRSRABAJ0][ 
3*CRSRIZQDA.][C0MM + ZT 
[COMM + X]" 

110 IFK = 4THENPRINT 

TAB(15)"[CTRL + 4][12 
ESPACI0S][12*CRSRIZQDA. 
]"W$(WW);X-N + 6 

120 IFK<30RK = 4THENPRINT 
'TCLR/H0ME][7*CRSR 
ABAJO]"TAB{10 + (X- 
l))"[CTRL+2]*" 

130 IFK=5THENF0RZ-1T0 

5:PRINT"[CTRL + 8]"W$(Z); 
:NFXTZ;PRINT:PRINT 
'TCTRL + 9][CTRL + 4"; 

140 GETK$:IFK$-""THEN140 

150 IFK>3AND 

K$MfD$(W$(WW),Nl) 
THEN210 

160 IFK>3THEN180 

170 IFK$-MID$(A$,X,1) 
THEN210 



UN PASO MAS 



ADICION DE LOS NUMEROS 

Y EL RESTO DEL TECLADO 

MAS SIMBOLOS 

CON LA TECLA SHIFT 



180 
190 

200 

210 
220 



230 
240 

250 
260 
270 

280 

290 
300 



W = 54276:A = 54277 

POKEW,33:POKEA,50:POKE 

54273,30:8 = 3 + 1 

POKE54273,0:POKEW, 

32:GOTO140 

W-54276:A = 54277 

IFK<30RK = 4THENPRINT " 

"[CLR/H0ME][7*CRSR 

ABAJO]"TAB(10 + (X-1))"" 

IFK-5THENPRINTK$; 

POKEW,33:P0KEA, 

5O:POKE54273,150 

POKE54273,0:POKEW,32 

IFK-1ANDN<20THEN70 

IFK>3ANDN<LEN(W$(WW)) 

THEN70 

IF(K<4ANDK>1)ANDN<20 

THEN70 

IFK>3THENNEXTWW 

WW-VAL(MID$(TI$,3, 




INPUT 5 



: :*60 + VAL(RIGHT$(Tt$,2)) 
,_. =RINT 

:CTRL + 0][SHIFT+CLR/ 400 

nOME]"LI$;:PRlNT 

•■[CTRL+8][6 410 

ESPACIOS]HASTARDADO: 

[CTRL+5]"WW"SEG." 
320 PR1NT"[CTRL+8]ERR0RES 420 

C0METID0S:[CTRL + 5]"S 
553 IFK>3THENPRINT"[CRSR 430 

ABAJO]"TAB(7}INT(10*NU/ 

WW)"[CTRL+2]PALABRAS 440 

PORMINUTO." 
340 PRINTLI$:GOTO530 
35(Z) NU-0:P=0:S = 0:FORWW-1 

TOMM:W$(WW)-WO$(INT 450 

(RND(1)*28)+1) 
360 1FK = 5ANDWW<>5 

THENW$(WW) = W$(WW) + "" 
370 NU-NU + LEN{W$(WW)): 460 

-NEXTWW:TI$ = "000000" 

.FORWW=1TOM[\/1:GOTO50 
380 POKE53280;6;POKE53281, 

0:POKE198,( 
39GJ PRINT"[CLR/'HOME][ 

10*CSRSABAJO][CTRL + 2] 



TAB(15)"0PCI0NES[CRSR 

ABAJ0][CTRL + 6]" 

F0RZ=1T05:PRINT 

TAB(13)Z;":TEST";Z:NEXTZ 

PRINT 

TAB(12)"[CTRL + 2][CRSR 

ABAJOIENTRAROPCION..." 

GETK$:K-VAL(K$):IFK<1 

ORK>5THEN420 

PRINT"[SHIFT+CLR/ 

H0ME]"Li$"[CTRL+6]" 

IFK<3THENPRINT"[CRSR 

ARRIBAIPULSALATECLA 

INDICADACONEL 

ASTERISCO"; 

!FK-3THENPRINT"[CRSR 

ARRIBAITECLEALALETRA 

QUEAPARECEEN 

PANTALLA."; 

1FK = 4THENPRINT"[CRSR 

ARRIBAITECLEALAPALABRA 

QUESALEENPANTALLA[2 

ESPACIOS]";:MM = 20 

IFK = 5THENPR1NTTAB 

{12)"[CRSRARRIBA]TECLEA 

ESTASPALABRAS":MM-5 



480 PRINTLI$:F0RZ=1T0 
1000:NEXT 

490 PRINT 

TAB{11)"[CTRL+2]PULSA 
UNATECLAPARAEMPEZAR" 

:POKE198;0:WAIT198;1 

500 PRINTTABdD'TCRSR 
ARRIBA][29ESPACI0S]" 

510 ONKGOTO50,50,50,350, 
350 

520 GOTO380 

530 FORZ=1TO1000:NEXT 
Z:GOTO380 

540 DATAR6502,COM64,VIC20, 
COM128,10SEG,MAR87, 
D0S5,1,27ABRIL,12DIAS, 
D8M3A87 

550 DATA312KG,1836M, 
ORGC000,SYS49152, 
LIST80,GEN12,LINK32, 
MIL37,RS232C 

560 DATADIN49152,CD4027, 




6 INPUT 



SN74123N,MC1488, 

TIL111,IVI14412,XR320, 

ZN427JCL8038 

Al ejecutar el programa. se te pe- 
dirii que seleccioncs uno dc los cinco 
niveies ya familiares. Estos son simi- 
lares a los de antes, con la adicion de 
los caracteres nucvos. En los niveies 
inferiores, se te pedini que mezcles co- 
rrectamentc numcros, y algunas vcces 
signos de puntuacion, con las teclas 
existentes. Esto te resultara dificil, ga- 
rantizando que no puedas concen- 
trarte simpleniente en los numeros. 

A continuacion, en los niveies su- 
periorcs, sc te pedira que teclees una 
mezcla de palabras, grupos dc nume- 
ros y grupos formados por una mezcla 
de letras y numeros. Veras las pala- 
bras y los numeros seleccionados en 
las instrucciones DATA proximas al 



Cuando domincs las teclas dc nu- 
meros, habra llegado el momento de 
pasar a la siguiente leccion. Esta te 
proporcionara la practJca necesaria 
para obtener los caracteres para los 
cuales se debe pulsar la tecla SHIFT. 

LA TECLA SHIFT 

Esta vez, las lineas adicionales del 
programa te daran la posibiiidad de 
utilizar la tecla SHIFT. Como antes, 
dichas lincas sustituiran a las lineas 
existentes o se incluiran entre ellas: 

10 DIM W$(21}; W0$(28):F0R 

Z=l TO 28:READ 

WO$(Z):NEXT 
20 FOR Z = l TO40:LI$ = LI$-f"-" 



50 TI$-"000000":S-0:WW=1 
60 N-0:POKE 198,0 
70 !F K = 5 AND P>0 

THENN = N + 1:P = P+1:G0T0 

140 
80 PRINT"[CLR/H0ME][8*CRSR 

ABAJ0]":IFK<3THENPRJNT 

TAB(10)"[CTRL + 4][CTRL 

+ 9]"A$:POKE198;0 
90 X=iNT (RND(1)*20)+1 

:N = N-1-1 :P=P-|-l:iF K-1 

THENX = N:GOTO 120 
100 IF K = 3 THENX-iNT(RND 
(l)*20)+l:PRiNTTAB(18 . 
)"[CTRL + 4][C0MM+A]-[C0 
MM-FS][CRSR ABAJO][ 3* 
CRSR IZQDA.][SHIFT+I][C 




final del programa. Si lo deseas. pue- 
des modificarlas a! cabo de cierto 
tienipo, va que de lo contrario llega- 
rias a familiarizarte demasiado con lo 
que el ordenador va a pedirte que ha- 
gas y no se trataria ya de un autentico 
desafio. Pero recuerda mantener el 
mismo niimero de palabras (o de gru- 
pos de caracteres) o el ordenador no 
podra leer la cantidad cor recta de da- 
tos. 



:NEXT 

:LI$ = "[CTRL+2]"-(-LI$ 
30 PRINT 'TSHIFT-bCLR/ 130 

H0ME][CTRL + 8]"TAB(7) 
"***** MECANOGRAFIA *****" 
40 PRINT 

CHR$(8)CHR$(14):P0KE 

54296; 15:G0T0 380 140 



TRL + 6]"MID$[A$,X,1)"[CT 
RL + 4][SHIFT + 1][CRSR A 
BAJO][ 3*CRSRIZQDA.][C0 

-fZ]-[COMM+X]" 
IF K = 4THENPRINT 
TAB(16)'TCTRL-l-4][ 12 
.ESPACiOS][ 12*CRSR 
IZQDA.]"W$(WW):X=N + 6 
IF K<3 OR K-4 
THENPRINT 'TCLR/H0ME][ 
7*CRSR 

ABAJO]"TAB(10 + (X- 
l))"[CTRL + 2]*" 
IF K = 5 THENFOR Z-1 TO 
MM:PRINT 

'TCTRL+8]"W$(Z); :NEXT 
Z:PRINT :PRINT 
'TCTRL-F911CTRL + 4]"; 
GET K$:IF K$-"" THEN140 



II 



INPUT 7 



150 



160 
170 

180 
190 



200 

210 
220 



230 
240 



260 
270 



IF K>3 AND 

K$-MID$(W$(WW),N,1) 

THEN210 

IF K>3 THEN180 

IF K$-MID$(A$,X,1) 

THEN210 

W-54276:A = 54277 

POKE W, 33:P0KE A, 

50:POKE 54273, 

30:S = S+1 

POKE 54273, 0:POKE W, 

32:G0T0 140 ' 

W=54276:A = 54277 

IF K<3 OR K=4 

THENPRINT"[CLR/HOME][ 

7*CRSR 

ABAJO]"TAB(10 + (X-1))" " 

IF K = 5 THENPRINT K$; 

POKE W, 33:P0KE A, 

50:POKE 54273, 150 

POKE 54273, 0:POKE W, 

32 

IF K-1 AND N<20THEN70 

IF K> 3AND 



280 

290 
300 



310 



N<LEN(W$(WW))THEN70 

IF (K<4 AND K>1) AND 

N<20THEN70 

IF K>3 THENNEXT WW 

WW-VAL(MID$(TI$,3, 

2))*60+VAL(RIGHT$(TI$, 

2)) 

PRINT 

"[CTRL+0][SHIFT+CLR/ 

HOME]"LI$;:PRINT 

"[CTRL+8][5ESPACIOS] 

HASTARDAD0:[CTRL+5] 



"WW'SEG." 
320 PRINT "[CTRL+81ERR0RES 

C0METID0S:[CTRL + 5]"S 
330 IF K>3 THENPRINT 'TCRSR 

ABAJO]"TAB(7)INT(10*NU/ 

WW)"[CTRL+2]PALABRAS 

POR MINUTO. " 
340 PRINT L1$;GOTO 530 
350 NU-0:P=0:S-0:FOR 

WW=1 TO 

MM:W$(WW) = WO$(iNT 
(RND(1)*28) + 1) 
360 IF K-5 AND WW<>4 

THENW$(WW) = W$(WW)+" " 
370 NU = NU + LEN{W${WW)) 

:NEXT WW:TI$-"000000": 





Aplicacione^ 




380 
390 



400 
410 



FOR WW=1 TO MMiGOTO 60 
POKE 53280, 6:P0KE 
53281, 0:POKE 198, 
PRINT "[CLR/HOME][ ' 
10*CRSR 

ABAJ0][CTRL+2]"TAB(15) 
"OPCIONES[CRSR 
ABAJ0][CTRL + 6]" 
FOR Z=l TO 5: PRINT 
TAB{13)Z;":TEST"; Z:NEXTZ 
PRINT 

TAB(12)'TCTRL+2][CRSR 
ABAJOJENTRAR OPCION..." 
GET K$:K=VAL(K$):IF K<1 
OR K>5THEN420 



PALABRAQUE SALE EN 
PANTALLA[ 2 ESPACIOS]"; 
:MM-20 
470 IF K-5THENPRiNT 
TAB(12)"[CRSR 
ARRIBAITECLEA ESTAS 
PALABRAS":MM=4 

472 PRINT LI$:A$ = "":FOR Z=l 
TO 10:Ql-65+RND(l)*26 

473 Q2-35 + INT(RND(l)*23) 

474 IF RND(1)>.50 
THENQ1=Q1+128 



P9V3481,C6M4A,R3DY7L, 

6510CPU,416RAM,Q023AS, 

1HDPQ0 

Gambia a modo minusculas/graficos 
para entrar las instrucciones DATA. 

Ahora, los niveles inferiores del test 
te presentan todos los caracteres que 
estan disponibles solamente cuando 
las teclas se pulsan junto con la tecla 
SHIFT, simbolos de puntuacion, ma- 




480 
490 

500 



430 PRINT 'TSHIFT+CLR/ 

H0ME]"LI$'TCTRL+6]" 
440 IF K<3 THENPRINT'TCRSR 

ARRIBAIPULSA LA TECLA 

INDICADA CON EL 

ASTERISCO"; 
450 IF K-3THENPRINT "[CRSR 

ARRIBAITECLEA LA LETRA 

QUE APARECE EN 

PANTALLA."; 
460 IF K = 4THENPRINT "[CRSR 

ARRIBAITECLEA LA 



A$-A$+CHR$(Q2) + CHR$ 
(Q1):NEXT 

PRINTTAB(ll)lCTRL + 2] 
PULSAUNA TECLA PARA 
EMPEZAR":POKE 198;0: 
WAIT198;1 
PRINTTABdD'TCRSR 
ARRIBA][29ESPACI0S]" 

510 ONKGOTO50,50,50,350, 
350 

520 GOTO380 

530 FORZ = 1TO1000:NEXT 
Z:GOTO380 

540 DATAR2D2,VIC20,COM64, 
1A2B,15,2,87,EDAD16, 
HASTA7JIENES2,A37N0, 
ISEG. 

DATA9H53B, 16/92, P5V, 
19A52,SALTA.5,1987, 
ZN432, 7/12/1990, WE4AN1 
DATAX24ZN,Q3C457, 



550 



560 



tematicos, etc. Para hacertelo mas di- 
ficil van mezclados con las letras ori- 
ginales de cada tecla, lo que significa 
que tienes que hacer ir y venir los de- 
dos cada vez. 

En los niveles superiores, tienes 
ahora una lista de palabras y de grupos 
de palabras al igual que antes, excepto 
que esta vez encontraras mayiisculas y 
simbolos mezclados con minusculas. 
Tu ordenador comprobara tu veloci- 
dad y tu precision en dichas palabras 
y grupos de caracteres. Si ves que lo 
haces demasiado bien en estos ejem- 
plos concretes, puedes en cualquier 
nnomento montarte tii mismo un 
nuevo CO nj unto de datos. Sin em- 
bargo, debes recordar que hay que 
conservar igual el niimero total de da- 
tos. Cuando puedas encontrar todos 
los caracteres del teclado, sin mirar y 
sin vacilar, podras pasar a la seccion 
siguiente. 



JUEGO DE VELOCIDAD 

Es el momento de pensar en incre- 
mentar tu precision y tu velocidad. 
Uno de los mejores modos de lograrlo 
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consiste en teclear siguiendo los tiem- 
pos de un metronomo, o algo similar, 
lo que mejorara tu regularidad y tu 
ritmo. A continuacion, a medida que 
aumente tu destreza, puedes aumen- 
tar la rapidez del metronomo y, por 
tanto, la de tus pulsaciones. 

RECURRIENDO AL RELOJ 
iNCORPORADO 

Pero ^por que utilizar un metro- 
nomo si tu ordenador dispone de un 
reloj incorporado? El siguiente pro- 
grama es un complcto y nuevo ejer- 
cicio de mecanografia dispucsto en 
forma de juego, en el cual tu puntua- 
cion dependera de cuan bueno seas 
con el teclado. Consta de dos partes. 
La primera parte visualiza una linea 
de caracteres seleccionados de modo 
aleatorio, que tti deberas teclear en el 
mismo orden en que aparecen. La se- 
gunda parte es mas difi'cil, ya que 
ahora los caracteres aparecen aleato- 
riamente en la pantalla uno a uno, de 
modo que no tengas ningun indicio dc 
cua] es el que viene a continuacion. 

Antes de empezar el test, puedes se- 
ieccionar tu propio nivel de dificultad. 
Esto se lleva a cabo dicicndole al or- 
denador a que velocidad quieres que 
se visualicen las letras, es dedr cuan- 
tos caracteres por minuto deseas te- 
clear. Entonces, el ordenador te dara 
un tiempo limitado en el cual debes te- 
clear cada caracter, dandote en caso 
contrario un punto de error. En el pri- 
mer nivel esto se traduce en un indi- 
cador movil que te muestra que letra 
deberias estar tecleando, mientras 
que, en el segundo nivel, es el propio 
caracter el que se muestra parpa- 
deando solamente durante un inter- 
valo de tiempo determinado. 

Antes de que empieces cl primer 
test, puedes elegir si deseas el teclado 
normal (solo letras) o el teclado ex- 
pandido (todos los simbolos). Ade- 
mas, antes de que empieces el se- 
gundo nivel (el test de caracteres), 
puedes decidir su duracion. Se te pe- 
dira cuantos caracteres deseas en total 
en el test. Cuando el ordenador los 
haya visualizado todos, se parani y te 
dara una puntuacion basada en tus 
errores. 



No es solo la velocidad media lo que 
mide el ordenador en este test, ya que 
debes mantener un ritmo uniforrae. 
Esto sera realraente beneficioso para 
quien desee incrementar su velocidad 
general dc escritura. Para ayudarte a 
adquirir la costumbre, el ordenador te 
dara una serial acustica junto al indi- 
cador visual correspondiente a cada 
letra. 

Ahora teclea el programa y pon a 
prueba tu habilidad: 

10 FOR Z=1TO40:LI$ = LI$ + "- 

":NEXT :LI$-"[CTRL + 2]" 

+ LI$ 
2(3 PRINT'TSHIFT+CLR/ 

H0ME][CTRL + 8]"TAB(7)"*** 

MECANOGRAFIA ***" 
30 PRINT 

CHR$(8)CHR$(14):P0KE 

54296, 15:GOT0 260 
40 S = 0:WW-l:ER-0:NM-0: 

N = 
50 POKE53280;5 
60 PRINT"[CLR/H0ME][5*CRSR 

ABAJ0]";:IFK=1THENPRINT 

"[CTRL + 4][CTRL 

+ 9]"TAB(10)A$:POKE198.,0 
70 X=INT(RND(1)*20)+1:N- 

N + 1:P=P4-1:IFK = 1 

THENX-N:GOTO90 

80 IFK = 2THENX=INT 
(RND(1)*20)-M:PR!NT 
TAB(18)"[CTRL-f4][C0MM-F 
A]-[COMM + S][CRSRABAJO][ 
3*CRSRIZQDA.][SHIFT+I] 
[CTRL-^6r'MID$(A$,X, 
1)"[CTRL-^4][SH!FT + I][CRSR 
ABAJ0][3*CRSR 
IZQDA.][COMIVI-hZ]- 
[COMM-HX]" 

90 IFK=1THENPRINT"[CLR/ 
H0fVlE][4*CRSR 
ABAJO]'TAB(10-H(X- 
l))"[CTRL+2]*" 

100 TI$-"000000" 

110 GETK$:IFK$-""ANDTI<TM 

THEN110 
120 IFTI>TM 

THENER = ER + 1:G0T0 

170 
130 IFK$<>M(D$(A$,X,1) 



THEN110 
140 IFK-1THENF0RZ = 4T01 
STEP-1:PRINTLEFT$("[CLR/ 
H0ME][8*CRSRABAJ0]", 
Z-h6)TAB{10+X-l)" 
[CTRL-h2][CTRL + 6][CRSR 
ABAJO][CRSRIZQDA.] 
":NEXT 
150 1FK = 2THENPRINT"[CLR/ 
H0ME][5*CRSR 
ABAJ0]"TAB(18)"[CTRH-4] 
[COMM+A]-[COMM-HS] 
[CRSRABAJ0][3*CRSR 
IZQDA.][SHIFT+l][CTRL + 6] 
[CRSRDCHAJICTRL+4] 
[SHIFT -H!][CRSRABAJO][ 
3*CRSRIZQDA.][COMM-h2]- 
[COMM+Xl" 
160 IFTKTMTHEN160 
170 W-54276:A = 54277:NM = 

NM-M:POKE53280,6 
180 IFK-1THENPRINT"[CLR/ 
H0ME][4*CRSR 
ABAJO]"TAB(10 + (X-1))" " 
190 POKEW,33:P0KEA, 

50:POKE54273,150 
200 POKE54273,0:POKEW, 

32 
210 IFK=1ANDN<20THEN 

50 
220 IFK=2ANDN<TLTHEN 

50 
230 PRINT"[SHIFT+CLR/ 

HOME][CTRL-K0]"LI$'TCTRL 
+ 6]"KP"PULSACI0NESP0R 
Mm.,HASFALLADO 
240 PRINTER"VECESDEUN 

TOTALDE"NM 
250 PRINTLI$ 
260 POKE53280,6:POKE53281, 

0:POKE198,0 
270 PRINT'TCLR/HOME][ 
10*CRSR 

ABAJ0][CTRL+2]"TAB(15)" 
OPCIONES[CRSR 
ABAJ0][CTRL+6]" 
280 F0RZ=1T02:PRINT 

TAB(13)Z;":TEST";Z:NEXTZ 
290 PRINT 

TAB(9)"[CTRL+2][CRSR 
ABAJOJQUEPRUEBADESEAS 
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Aplicadones 



300 GETK$:K=VAL(K$);IF 

K<1ORK>2THEN300 
310 INPUT"[SHIFT + CLR/ 

HOMEJN.DEPULSACIONES 

PORMIN.APRACTICAR"; 

KP:IFKP<1THEN 

310 
320 TM-3000/KP:INPUT 

"[SHIFT+CLR/ 

HOMEJLETRASNORMALESO 

AMPLIADAS(N/A)"; 

NX$ 
330 IFNX$<>"N"AND 

NX$<>"A"THEN 

320 
340 IFK=2THENTL-20:INPUT 

"[SHIFT+CLR/ 

HOMEjENTRARNUMERODE 

CARACTERES"; 

TL 
350 PRINT'TSHIFT+CLR/ 

H0ME]"LI$"[CTRL + 6]" 
360 PRINT"[CRSR 



ARRIBAIPULSALATECLA 

CUANDOOIGASEL 

PITIDO" 

370 SP-1:IFNX$ = "N" 

THENSP = .5 
380 PRINTLI$:A$ = "":FOR 

Z=1TO10.5STEPSP:Q1 = 65 

+ RND(1)*26 

390 Q2-33 + iNT(RND(l) 
*25) 

400 IFRND{1)>.50 

THENQ1-Q1+ 

128 
410 IFNX$-"N" 

THENA$-A$ + CHR$CQ1): 

NEXT:GOTO430 

NEXT:GOTO430 
420 A$ = A$ + CHR$(Q2) + CHR$ 

(QD^NEXT 
430 PRINTTAB(ll) 

"[CTRL + 2JPULSAUNA 

TECLAPARA 



EI\/IPEZAR":P0KE198, 

0:WAIT198,1 
440 PRmTTAB(ll)"[CRSR 

ARRIBA][28ESPACI0S]" 
450 GOTO40 



lVllCRoco^fSEJo acerca 

DE LA RAPIDE2 



Cuando utilices el programa de ve- 
locidad, es mejor empezar por el te- 
clado normal a baja velocidad, diga- 
mos de 30 a 50 caracteres por minuto. 

El riesgo a evitar consiste en tecleaf 
los caracteres familiares mas rapida- 
mente y luego ir mas despacio cuando 
te encuentres con caracteres sobre los 
que no estes tan seguro, particular- 
mente si eliges el teclado expandido. 

Una vez tengas el habito de teclear 
a un ritmo constante puedes seleccio- 
nar el teclado expandido y, a conti- 
nuacion, incrementar gradualmente tu 
velocidad. 



^.M^/. 
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Incluso cuando un programa esta to- 
talmente depurado, todavia pueden 
aparecer errores. Esto se debe al uso o al 
abuso que se hace del propio programa. 
Este es el tema del que nos ocuparemos 
a continuacion. 

La palabra clave en este caso es uso. 
Independientemente de lo bien hecho 
que este un programa, desde el punto 
de vista exclusivamente tecnico, si de 
alguna manera su uso resulta difidl, 
confuso o enganoso, es seguro que en 
algun memento alguien tendra proble- 
mas con el mismo. Y si alguien tiene 
problemas al utilizar un ordenador, lo 
mas probable es que se produzca al- 
gun tipo de error. 

En realidad el sccreto consiste en 
hacer que el programa sea agradable 
de usar, de forma que cada una de las 
fases del mismo sea convenientemente 
anunciada, y el usuario aborde cada 
nueva accion con pleno conocimiento 
de lo que esta haciendo. 

Esto quiere decir que hay que dis- 
poner una gran cantidad de represen- 
taciones y mensajes de pantalla, y que 
hay que proteger tanto al usuario 
como al programa de la posibilidad de 
cometer errores. 

Siempre que sea posible, merece la 
pena incluir en el programa una pro- 
teccion contra todo tipo de entrada ac- 
cidental. Las pulsaciones erroneas de 
tecla, el pulsar dos teclas a la vez, las 
entradas ilegales, los valores imposi- 
bles, todo ello significa la muerte de 
ciertos programas a menos que se 
adopten precauciones especiales. Para 
hacer todo esto, tienes que incorporar 
en tus programas varios tipos de ruti- 
nas de comprobacion de errores y va- 
lidacion de entradas. De hecho, mu- 
chos de los programas que liemos visto 
ya en INPUT utilizan rutinas de esta 
clase. 

El uso de unos mensajes de pantalla 
que sean precisos resulta fundamental 




para ayudar al usuario a entender per- 
fectamente como puede responder 
cuando se le esta invitando a que se- 
leccione una opcion, por ejemplo en 
un menu. 

Imaginate por ejemplo que tenemos 
un menu con las siguientes opciones, 
tipicas de la parte inicial de un pro- 
grama sencillo de base de datos: 

1 Crear un nuevo registro 

2 Modificar un registro ya existente 

3 Cargar un fichero 



4 Almacenar un ficliero 
... etcetera. 

Si a continuacion se pone un men- 
saje que diga algo asi como "SELEC- 
CIONE UNA OPCION" o "HAGA 
SU ELECCION", el usuario se queda 
en reahdad un poco en tinieblas res- 
pecto a la forma en que tiene que ha- 
cer lo que venga a continuacion. ^De- 
bera pulsar el niimero de opcion, o de- 
bera teclear mas bien una o varias le- 
tras del correspondlente mensaje? 
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USO DE MENSAJES ADECUADOS 



A LA GAZA DE ERRORES 



EXCLUSION DE LOS VALORES 



NOVALIDOS 



INDICACION DE ERRORES 




Evidentemente, un mcnsaje raucho 
mas satisfactorio en este sentido seria 
"SELECCTONE OPCION (1-4)" o 
bien 'TARA INDICAR SU ELEC- 
CION PULSE UNA TECLA DEL I 
AL4-. 

De la misma forma, en los mensajes 
que requieran una respuesta sencilla 
que sea un si o \m no, indicalo en el 
propio mensaje. Por eso, en lugar de 
utilizar un mensaje que, por ejemplo. 
diga "^.QUIERES JUGAR OTRA 
ATZ?" y en el que el si podria estar 



indicado por la pulsacion de una tecla 
cualquiera no especifica, o por la pul- 
sacion del boton de fuego del joystick, 
o por la tecla Y, es mucho mejor que 
cspecifiques las opciones. Asi, podrias 
poner "PARA JUGAR OTRA VEZ, 
APRTETA EL DISPARADOR" o 
bien "^.QUIERES JUGAR OTRA 
VEZ (S/N)?". Cualquiera de las dos 
posibilidades es mucho mas directa y 
da una idea mucho mas clara do la ma- 
nera de continuar. 

Incluso el mensaje "PULSAR 
CUALQUIER TECLA PARA CON- 
TINUAR" resulta mejor a este res- 
pecto. Pero este mensaje tan conocido 
y tan popular tambien puede ser me- 
jorado especificando una tecla deter- 
muiada; con ello se evita que al usua- 
rio se le ocurra pulsar precisamente 
STOP, BREAK... y pueda salirse del 
programa. Seguro que no hay confu- 
siones si utilizas un mensaje del tipo: 
"PARA CONTINUAR, PULSA C". 

En algunos orden adores es posible 
destacar las pulsaciones reqiieridas 
utilizando el video inverso, lo cual 
constituye una alternativa bastante 
atractiva. 

Con independencia de los tipos de 
mensajes utllizados y de las pulsacio- 
nes de tecla disponibles, constituye 
una buena practica de programacion 
el inutilizar todas las teclas que pue~ 
dan original" la parada del programa, 
y el utilizar rutinas que impidan todas 
las entradas imposibles, como se ex- 
plica mas adelante. Resumiendo, en 
las opciones a las que hay que respon- 
der con un simple si o no, podrias uti- 
lizar algo como lo siguiente: 

90 GETA$ 

95 IF A$<> "S" AND A$<>"N" 
THEN 90 

Otra forma de allgerar el trabajo del 
usLiario consiste en restringir la canti- 
dad real de inform acion que hay que 



introducir en un punto determinado. 
Si con la pulsacion de una sola tecla se 
puede hacer una determinada tarca, 
usala. Y para evitar confusiones, con- 
viene que a lo largo de todo un pro- 
grama controlado a base de menus uti- 
lices de forma sistematica el mismo' 
tipo de mensajes y respuestas. De esta 
forma, si la seleccion del menii de 
apertura se hace tecleando un solo mi- 
me ro, procura utilizar este mismo sis- 
tema para los otros menus que vengan 
detras. 

Insistiendo aun mas en este punto, 
utiliza las mismas convenciones para 
cada menu y para cada lista de opcio- 
nes. Si por ejemplo en uno de los me- 
nus la tercera opcion es GUARDAR 
mientras que en otro menu la tercera 
opcion es SALIR^ lo mas probable es 
que mas de uno se sienta incomodo 
con tu programa en el futuro... 

En los casos en que se requieran en- 
tradas de datos se puede aplicar la 
misma regla, especialmente cuando 
intervienen secuencias mas bien lar- 
gas. Los mensajes de entrada multiple 
quedan bien cuando los datos estan 
restringidos a un con junto de campos 
muy sencillos, como ocurre por ejem- 
plo en el caso de un fichero de nom- 
bres y direcciones, en el que invaria- 
blemente cada nombre va seguido por 
cuatro lineas de direccion y un numero 
de telefono. 

Pero el caso de un fichero con re- 
gistros de clientes es ya algo mas com- 
plejo y requiere bastante mas cuidado. 
En este caso es bastante probable que 
el niimcro de entradas difiera de un 
registro a otro y que algunos campos 
tengan que dejarse en bianco. 

Puedes reducir los errores clasifi- 
cando las entradas requeridas en gru- 
pos logicos. Asl puedes seguir conser- 
vando un unico mensaje para el nom- 
bre y la direccion, dedicando a conti- 
nuacion mensajes especiales para de- 
talles especificos. 
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Organiza las cosas de modo que los 

mensajes aparezcan ellos solos en la 
pantalla, o en un color diferente, o por 
lo menos bien separados del mensaje 
anterior. El borrado de toda la pan- 
talla despues de cada grupo de men- 
sajes es algo que el ojo aprecia y agra- 
dece mucho mas que un simple scro- 
lling hacia arriba. 

Llegados a este punto tenemos que 
hacer otra observacion: en algunos 
programas, una entrada inesperada 
puede llamar a su propia subrutina. 
For ejemplo, en un fichero de datos, 
se pueden requerir elementos de in- 
formacion adicionales para determi- 
nadas entradas. Si ahora resulta que el 
usuario, debido a la razonable familia- 
ridad que ya ha ido adquiriendo con la 
secuencia de mensajes de pantalla, no 
presta la debida atencion a la nueva 
«ramificaci6n» de los mensajes y sc 
cree que nada ha cambiado, puede en- 
contrarse con toda clase de errores. 

En .casos como este son esenciales 
las rutinas para la caza de errores, 
pero conviene de todas formas pre- 
venir de alguna forma al usuario de 
que las condiciones de entrada han 
cambiado. Una simple intermitencia 
en la pantalla, o la presentacion del 
mensaje en video inverse son normal- 
mente mas que suficientes. Tambien 
podrias incorporar algun tipo de 
alarm a audible, tal como un beep. 

LA CAZA DE ERRORES 

La forma mas sencilla de evitar que 
los errores sean absorbidos por un 
programa es brindar al usuario la op- 
cion final de que acepte o rechace lo 
que ya ha sido introducido. Puedes ha- 
cer esto utilizando una rutina que en- 
vie un mensaje mas o menos como 
este: "^.ESTAS SEGURO? (S/N)". Al 
pulsar N simplemente vuelve a em- 
pezar la rutina de introduccion de da- 
tos, mientras que con S pasa a actuar 
sobre la informacion ya introducida. 
Pero esto solo es realmente necesario 
en las rutinas de entradas muy largas. 

Si decides incorporar dentro de un 
programa una rutina de aceptacion de 
entradas, intenta combinar todas las 
respuestas en un solo grupo. Asi re- 
sulta de lectura mucho mas facil y es 




mucho mejor que andar repitiendo 
toda la secuencia de preguntas y res- 
puestas individualmente. 

Aunque las rutinas de aceptacion de 
entradas proporcionan un metodo 
sencillo de evitar errores, los progra- 
mas tienen que estar protegidos contra 
las entradas incorrectas. 

Por ejemplo: ^pueden introducirse 
letras y numeros en algiin punto de un 
programa en el que solo se permiten 
letras, o solo numeros? Tienes que 
procurar anticiparte siempre a proble- 
mas de este tipo cuando construyas las 
rutinas de entrada de tus propios pro- 
gramas. 

LIMITES DE LONGITUD 

En la mayoria de los programas de 
ficheros de datos, las longitudes de las 
entradas tienen que adaptarse a las 



exigencias del programa. Por ejemplo 
un programa de etiquetas tiene sus en- 
tradas restringidas por el tamaiio fisico 
de la etiqueta. Al fin y al cabo, no 
tiene sentido introducir una linea con 
una direccion que tenga, por ejemplo, 
25 o 30 caracteres, si una linea asi de 
larga no va a caber dentro de la eti- 
queta. 

Puedes servirte en estos casos de un 
indicador que sugiera el limite real de 
las entradas, como por ejemplo utili- 
zando el video inverso o cualquier 
otro artificio visual que sugiera los li- 
mites efectivos de cada campo. 

Incluso en estos casos se necesita 
una programacion adicional que in- 
valide las entradas demasiado largas. 
En algunos casos tal vez sea preferible 
cortar por las buenas las lineas que 
sean demasiado largas; este tipo de 
truncamiento por el sitio adecuado 
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esta basado en la propia rutina de 
aceptacion de entradas. Pero normai- 
mente es mejor iniciar de nuevo la se- 
cuencia de entrada en el punto en que 
se produjo el error, enviando un men- 
saje de error que diga algo asi como 
"ENTRADA DEM ASI ADO LAR- 
GA" seguido de un mensaje que diga: 
"ESCRIBALO OTRA VEZ", o cual- 
quier otra cosa que se te ocurra. 

Otra de las razones principales para 
fijar limites a las longitudes de las en- 
tradas, dentro de un programa como 
un fictiero de datos, es la conservacion 
de la memoria. Despues de todo, de 
nada sirve disponer 28 caracteres para 
una entrada de un apartado de co- 
rreos, cuando la maxima longitud re- 
querida por la misma nunca supera los 
8 caracteres. Ajusta las longitudes de 
tus campos todo lo posible para aho- 
rrar memoria y obtener el mayor ren- 
dimiento de tus ficheros de datos. 

VALORES NO VALIDOS 

El poner limites es tambien impor- 
tante por otras razones, particular- 
mcnte en los programas que hacen uso 
de una entrada numerica para calculos 
posteriores. Porejemplo. supongamos 
que el ordenador te pide ties ntimeros 
(o busca esos tres numeros en la me- 
moria) y divide la suma de los dos pri- 
meros por el tercero. Una leva impre- 



cision de uno de tus dedos puede ha- 
cer que el tercer niimero introducido 
sea un en lugar de un 9. O tambien 
puede ocurrir que como resultado de 
un calculo interne realizado por tu or- 
denador, ej valor sea asignado a la 
tercera variable. 

A menos que tu programa este ade- 
cuadamente protegido, el resultado 
sera un mensaje de error de division 
por cero con una detencion brusca del 
programa. 

En un caso como este, la proteccion 
que se necesita es minima, en el su- 
puesto de que solo se trate de entradas 
desde el teclado; basta con poner una 
sencilla rutina de comprobacion de te- 
clas para restringir el margen de va- 
lores aceptables. 

Pero. para los calculos «internos» en 
los que podria resultar un valor cero 
como dato para otros calculos poste- 
riores, hay que utilizar metodos es- 
pecificos de captura de errores. Se 
trata de un caso tipico en que hay que 
anticiparse poniendose en el caso 
peor, incorporando en e! programa 
una rutina de comprobacion de erro- 
res que utilice operadores relaciona- 
les. Podrias afiadir algo mas o menos 
como esto: 

(F A-0THEN GOTO 10000 
La linea 10000 seria en este caso el 



principio de una rutina que podria mo- 
dificar el valor de 0, asignandole otro 
valor que, aunque muy proximo a 
cero, sea aceptable por el programa; 
tambien podria ser que avisara al 
usuario de que esta a punto de pro- 
ducirse un calculo no valido. En el ul- 
timo ejemplo el programa podria ser 
reconducido a una rutina de entrada 
adecuada que permita introducir un 
valor alternativo. 

Para comprobar que un dato se en- 
cuentra dentro de un determinado 
margen de valores, puedes utilizar 
algo tan simple como lo siguiente: 

IF N>100OR N<1 THEN... 

En el caso de que el valor introdu- 
cido este fuera de margenes, la linea 
anterior enviaria al programa al prin- 
cipio de la rutina de entrada. En el 
caso de que exista el riesgo de que se 
produzca una entrada no valida bajo 
control directo del usuario del pro- 
grama, te conviene utilizar mensajes 
de pantalla adecuados que inforraen 
del margen de valores disponibles y 
ademas, en caso de que se produzcan 
errores, informe al usuario de donde 
esta el problema. Todos estos mensa- 
jes pueden estar contenidos en una 
subrutina a la que se acced-e cada vez 
que sea necesario, como veremos mas 
adelante. 
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BORRADO DEL BUFFER 

Hay algunos ordenadores, y el 
Commodore es uno de ellos, que tie- 
nen que utilizar una zona de almace- 
namiento temporal para las entradas y 
el teclado. Esto se hace por medio del 
llamado buffer de entrada o buffer de 
teclado. Puede ser que se produzcan 
errores si accidentalmente se introdu- 
cer! caracteres equivocados o todavia 
estan almacenadas en el buffer las an- 
teriores pulsaciones de tecla. 

Por ejemplo en un programa que 
acepte una secuencia de caracteres in- 
dividuales, al pulsar una tecla por se- 
gunda vez, se envia al buffer de te- 
clado un segundo caracter, probable- 
mente indeseado, quedando listo para 
su procesamiento. El primer mensaje 
de pantalla acepta el primer caracter, 
mientras que el segundo dificilmente 
va a tener tiempo de presentar de 
nuevo el caracter antes de que efecti- 
vamente quede asignado como valor 
de la segunda pulsacion de tecla, con 
lo cual el programa proseguira su mar- 
cha. 

Para evitar este tipo de situaciones, 
es accuse j able incluir la signiente sen- 
tencia como precaucion adicional jus- 
tamente antes de una secuencia de en- 
trada: 

POKE 198,0 

Con esto, el buffer de teclado queda 
completamente borrado antes de que 
llegue la secuencia de entrada que se 
espera inmediatamente a continua- 
cion. 

iNDICACIOlM DE ERRORES 

Si al usuario se le proporcionan ins- 
trucciones claras de lo que tiene que 
hacer cuando se enfrenta con la intro- 
duccion de una secuencia de datos, ya 
se estan eliminando de entrada una 
gran cantidad de errores posibles. No 
obstante siempre seguiran producien- 
dose errores, en cuyo caso una indi- 
cacion clara del problem a ayudara 
enormemente a que este no vuelva a 
producirse. 

Lo que se necesita en este caso no 
son los mensajes de error que te envia 



habitualmente tu ordenador, sino un 
conjunto de mensajes de error redac- 
tados a medida. Todos estos mensajes 
de error pueden ir en un programa 
que utilice una rutina especial a la que 
se Uame cada vez que se produzca un 
problema. 

Entre las aplicaciones tipicas de esta 
rutina estarian los resultados numeri- 
cos de un calculo o de una entrada ex- 
terior que se salgan de los limites per- 
mitidos, la duplicacion de nombres en 
un campo clave, la longitud incorrecta 
de una entrada, o una entrada de tipo 
distinto del esperado, etc. De hecho, 
puedes imaginarte todos los tipos de 
problemas que pueden presentarse en 
un programa y preparar un mensaje 
de error para cada uno de ellos, 

Utilizando una matriz y una orga- 
nizacion adecuada de tus variables, 
puedes definir el numero de mensajes 
de error requerido para permitir al 
programa asignar el valor de la varia- 
ble en funcion de los errores que se 
produzcan. 

La matriz correspondiente a estos 
mensajes de error se dimensionaria al 
principio del programa como parte del 
procedimiento de inicializacion, Na- 
turalmente, habria que efectuar de vez 
en cuando modificaciones periodicas 
al objeto de incluir los nuevos posibles 
errores que se vayan descubriendo a 
medida que se va desarrollando el pro- 
grama. Asi, por ejemplo, si estas pen- 
sando en utilizar un conjunto de nueve 
pro gramas de mensajes de error, cerca 
del comienzo de tu programa puedes 
utilizar una sentencia DIM como se 
hace en este programa: 

10 DIM EM$(9)i FOR Z=l TO 

9:READ EM$(Z):NEXTZ 
20 DATA "iENTRADA 

DEMASIADO LARGA!", 

"jPULSACION 

INCORRECTA!" 
22 DATA "iCONTRASENA 

INCORRECTA!", "jSIN 

DATOS!" 
24 DATA "jREINTRODUZCA LOS 

DATOS!", "jNO TOCAR!" 
26 DATA "PULSE (S)! (N)0", 

"jSOLO NUMEROSI", "jSOLO 

LETRAS!" 



Es evidente que puedes definir tus 
propios mensajes de error de manera 
que se adapten lo mejor posible a las 
condiciones de tu programa. Despues, 
a lo largo del programa, tendras que 
ir intercalando las comprobaciones de 
los valores introducidos: 

1000 EIVI = 0: INPUT A$ 
1010 IF LEN (A$)>25THEN 
EIV! = 1 

En el ejemplo anterior, la linea 1010 
es opcional y puede ser remplazada 
pormuchas alternativas, dependientes 
del programa de que se trate. Aqui 
tienes aigunas de ellas: 

1010 IF A$<> "CREDITO" 

THEN EM = 3 
1010 IF A$ = "5" OR A$-"9" 

THEN EM = 4 
1010 IF A$-"" THEN EM = 5 
1010 IFA$ = " "THEN EM = 6 
1010 IF A$<> "S" AND 

A$<>"N" THEN EM = 7 
1010 IF A$<"0" OR A$>"9"- 

THEN EM = 8 
1010 IFA$<"A" OR A$>"Z" 

THEN EM = 9 
1010 FOR Z-1 TO LEN {A$): IF 



MID$(A$,Z,1) = 
EM = 2 
1015 NEXTZ 



"0" THEN 



Como puedes ver, todas las varian- 
tes propuestas llevan el misrao nii- 
mero de linea de programa, ya que en 
una rutina particular solo debe figurar 
una de ellas. 

Se excepttia el caso del ixltimo ejem- 
plo presentado, que por tratarse dc un 
bucle requiere una sentencia NEXT 
en una linea posterior, linea 1015 en 
este caso. 

Cuando al comprobar una pulsacion 
de tecla se revela la presencia de un 
error, la variable EM adopta un valor 
particular que dcpende del mensaje de 
error especifico, tal como se hay a de- 
finido anteriormente como parte de la 
matriz EM. 

La primera opcion propuesta sirve 
para examinar si el dato introducido 
contiene mas de 25 caracteres, la se- 
gunda permite comprobar la ortogra- 
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fia de la palabra clave. La tercera op- 
cion. que encontraria una aplicacion 
tfpica en un menu de seleccion, senala 
que no hay datos disponibles si se eli- 
gen las opciones 5 y 9. La cuarta res- 
ponde al usuario con cierto descaro en 
el caso de que este pulse la barra es- 
paciadora. La quinta opcion es una va- 
riante de la comprobacion de tecla que 
se suele poner habitualmente despues 
de un mensaje de los del tipo Si/No. 
Las dos opciones siguientes sirven 
para comprobar que solo se introdu- 
cen letras, o solo numeros y la ultima 
es para cerciorarse de que no se ha co- 
lado en el programa una O en lugar de 
unO. 

El programa regresaria despues al 
punto en el que se produjo la entrada 
de datos incorrecta. 

A continuacion el programa avan- 



zaria, mediante una subrutina, hasta 
una rutina de preseetacion de mensa- 
jes que tendria la siguiente forma: 

2000 IF EM>0THEN PRINT 
EM$(EM) 

A PBUEBA DE BOMBAS 

Ya hemos visto antes la forma en 
que puede reallzarse la comprobacion 
de las pulsaciones de tecla para validar 
las entradas de un menu. Aunque el 
procedimiento descrito sirve para pro- 
teger el programa de las entradas in- 
correctas, hacen falta otros refina- 
mientos para tener el programa bien 
protegido durante la ejecucion. 

Por ejempio, imaginate un pro- 
grama escrito para ser utilizado por ni- 
hos pequefios. Lo ideal seria que solo 



hiciera falta pulsar una tecla, o en 
to do caso dos o tres, para poder ir 
avanzando en el programa. Todas las 
demas teclas de letras y numeros pue- 
den ser invalidadas de una forma bas- 
tante facil. Pero (,que sucede con las 
teclas de control tales como RVNI 
STOP, RESTORE, BREAK o ES- 
CAPE? Hay varies POKEs disponi- 
bles que puedes utilizar para inhibir 
algunas de las teclas mas sensibles de 
los Commodores. Para el 64, puedes 
inhibir la tecVd RUN/STOP con POKE 
808,239. Para inhibir RUN/ STOP y 
RESTORE, utiliza POKE 808,251. 
Para volver a habilitar cualquiera de 
las dos, teclea POKE 808,237. 

En el caso del Vic 20, puedes inhibir 
RUN/STOP y RESTORE con POKE 
808,128. La activacion se hace con 
POKE 808,112. 
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ABISMO: PROGRAMA 
UN JUEGO COMPLETO 



;,Puedes aprender el lenguaje ensam- 
blador antes de que las cabras se eoman 
tu merienda? Empieza ya a programar 
uii magniiico juego en codigo maquina 
que iremos conipletando en sucesivos 
numef OS de INPUT. Asi combinaremos 
el aprendi^aje de codigo maquina con la 
confeccion de un juego casi comercial. 

Existen muchas aplicaciones comer- 
eiales serias para la programacion en 
lenguaje raaquma. Pero la programa- 
cion de juegos te permite poner de 
manffiesto todos los principios impor- 
tantes; ademas, el aprendizaje de la 
programacion en el arido codigo ma- 
quina es muchomas divertido cuando 
se aplica para configurarun juego. 
. Por eso vanios a ver en INPUT un 
juego completo en codigo maquina, 
construido especialmente para apro- 
vechai al maximo todas la'i posihili- 
dades de programacion del Commo- 
dore 64. EI juego te mostrara como se 
va construvcndo an jucgo tipico y 
Cv'imo se comhman los ditcrcntcs clc- 
menUJtj dc piogianiacion para produ- 
c'l graticus nileresantes, una accion 
■^ua\e V eJectos emocionantes. 



saltar, en el que aparecen cuatro pan- 
talias que van siendo progresivamente 
mas dificiles. El personaje principal, 
que ha ido a merendar a un acantilado 
que hay junto al mar, ha decidido ir a 
dar un paseo para cjue se le abra e! 
apetito, pero cuando regresa se en 
cuentra con que uuas cabras han cs- 
parcido toda su merienda por las lo- 
cas. Te ves obhgado a escalar hasta lo 
alto del acaiitilado para recuperai tus 
posesiones perdidas. La cosa es toda- 
via mas urgente por el hecho de que 
la marea esta subiendo y estas en pe- 
ligro de ahogarte si no consigues ai- 
canzar a tiempo !a parte mas alta del 
acantilado. 

En la primera pantalla te ves estor- 
bado por las rocas que ca^n: Las rocas/j 
van cayendo por la pendiente y te ves ■ 
obligado a ir saltando sobic eilas. El'' 
menor resbalon puede significai tu 
mueUe subita. Pucdes control a r tns 
sahos y tu carreia actuando sobre hii 
teclas N y M. Si re^ultas alcanzado por 
una piedia, tc veras inmcdiatamentc 
sepuitado. jMcnos mal que tiencs 
cinco vidas! 

Cuando He gas hasta io alto del dco)^^ - "■ 



tilado y reclamas el primer articulo de 
tu perdida merienda, nuevaraente des- 
ciendes hasta abajo y te encuentras en 
la segunda pantalla. Cuando intentas 
escalar esta vez el acantilado, te en- 
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cuentras con que tienes que saltar por 
encima de unas grietas que te vas cn- 
contrando. Si caes en cualquiera de 
ellas, te veras nuevamente sepultado. 

Cuando consigues Uegar a lo alto de 
la segunda pantalla, pasas a la tercera. 
Tambien aliora tienes que escalar la 
pendiente, evitando las grietas. Pero 
esta vez las grietas estan habitadas por 
serpientes venenosas que haran todo 
io posible por morderte cuando pases 
por encima. En la cuarta pantalla, ten- 
dras que enfrentarte con grietas, ser- 
pientes y cantos rodados. 

En todas las pantallas tienes, ade- 
mas, el problema de la marea, que 
sube sin cesar. Vas ganando puntos a 
medida que vas ascendiendo por la 
pendiente, ademas de una bonifica- 
cion si consigues reunir, sin perder ni 
una vida, cuatro objetos que form en 
parte de tu merienda. 

Aparte de su caracter formativo 
para el aprendizaje de la programa- 
cion, Abismo resulta de lo mas diver- 
tido de jugar. Lo iremos publicando 
por etapas en numeros sucesivos de 
INPUT. Explicaremos con todo deta- 
Ue como funciona cada parte y como 
se adapta en la estructura global del 



juego. Tambien veremos ejemplos de 
como se pueden utilizar algunas de las 
rutinas para diversas aplicaciones. 

Al final dispondras de un juego si- 
milar a muchos de los que existen en 
el mercado. 

ESTRUCTURA DEL JUEGO 

El fondo del escenario y los perso- 
najes moviles se construyen por medio 
de GDUs. Para generar el fondo se 
utilizan los correspondientes bucles 
que se encargan de irlo presentando 
en pantalla. 

En la primera pantalla se superpo- 
nen las grietas y las serpientes. De esta 
manera, no hace falta redefinir otra 
vez la mayor parte del fondo en las 
pantallas segunda y tercera. 

La parte principal del programa in- 
cluye una rutina de ejecucion que con- 
trola el tiempo y la prioridad de los su- 
cesos que ocurren. Diclios sucesos se 
incorporan en forma de subrutinas. La 
ejecucion se realiza por medio de in- 
terrupciones. 

El movimiento de las piedras y el 
del persona je principal se hacen en 
saltos de medio en medio caracter. 




Para ello se utilizan dos conjuntos de j 
caracteres, con lo cual se consigue una 
accion aceptablemente suave sin hacer 
que el programa sea demasiado com-| 
plicado ni demasiado lento. En todos 
los juegos de esta clase, la velocidad 
es importante. 

Lo primero que tienes que hacer en I 
cualquier juego es presentar en la pan- 1 
talla una pagina con el titulo. Aunque 
la rutina de presentacion esta escrita 
en codigo maquina, no tiene mucho 
sentido el poner en codigo maquina 
las palabras que ban de aparecer en 
pantalla. En vez de hacer esto, las pa- 
labras que quieras que aparezcan en 
pantalla se teclean en ASCII como 
parte del siguiente programa en BA- 
SIC que \a?> pokea en memoria. 

Tienes varias formas diferentes de 
hacer esto. Aqui veremos dos de ellas, 
por lo que la presentacion de la pagina 
con el titulo del juego se divide en dos 
secciones, cada una de las cuales 
puede ser ejecutada y probada sepa- 
radamente. 

Antes de introducir ningun pro- 
grama tienes que desplazar hacia 
abajo el RAMTOP a fin de definir una 
zona protegida, lo cual consigues po- 
keando 51 con el valor 255, 52 con 63, 
55 con 255 y 56 con 63. A continuacion 
tienes que introducir el programa en 
BASIC y ejecutarlo. Asi se construira 
la tabla de datos en la zona protegida 
de la memoria. Despues teclea un 
NEW para deshacerte del programa 
pokeador en BASIC, carga tu monitor 
en codigo maquina y utilfzalo para 
guardar la tabla en cinta. 

Teclea nuevamente NEW para li- 
brarte del monitor en codigo maquina 
y carga tu ensamblador con un 
LOAD. Teclea la rutina en lenguaje 
ensamblador y utiliza la opcion SAVE 
para guardar en cinta el codigo fuente. 
Seguidamente ensambla la rutina, haz | 
un nuevo NEW para librarte del en- 
samblador y carga de nuevo el moni- 
tor de codigo maquina. Guardalo en, 
cinta. 

Puedes ejecutar las rutinas en co- 
digo maquina, llamandolas con SYS 
16384. Pero tienes que tener al mismo ] 
tiempo en memoria la tabla de datos. 

El siguiente programa en BASIC 
contiene todos los datos de la pagina 
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de presentacion, excepto la palabra 
CLIFF (abismo). Esta palabra se 
anade mas adelante utilizando un rae- 
todo diferente de entrada de datos. 

50 P0KE53281,1 

10 ADD-16640:FORI = 0TO 

32000 
20 READA%:POKEADD + l,A% 
25 PRINTCHR$(A%); 
30 IFA% = 0GOTO50 
40 NEXT 
50 END 
16640 DATA 147,149,142, 

169,169,169,169,169, 

169,169 
16650 DATA 169,169,169, 

169,169,169,169,169, 

169,169 
16660 DATA 169,169,169, 

142,13,149,169,169, 

169,169 
16670 DATA 169,169,169, 

169,169,169,169,169, 

169,169 
15580 DATA 169,169,169, 

169,169,142,144,125, 

32,32 
16690 DATA 32,32,32,32,32, 

82,69,86,73,83 
16700 DATA 84,65,32,13,149, 

169,169,169,169,169 
16710 D. TA 169,169,169, 

169,169,169,159,169, 

159,169 
15720 DATA 159,169,169, 

144,32,125,32,32,32, 

32 
16730 DATA 32,32,32,32,73, 

78,80,85,84,46 
16740 DATA 32,32,32,149,13, 

149,169,169,169,169 
16750 DATA 169,159,169, 

159,169,169,169,169, 

169,169 
16760 DATA 169,169,169, 

142,144,32,32,12:5,32, 

32 
16770 DATA 32,32,32,32,32, 

32,32,32,32,32 
16780 DATA 32,32,32,32,32, 

32,13,149,169,169 
16790 DATA 169,169,169, 



169,169,169,169,169, 

169,169 
16800 DATA 169,169,169, 15900 

159,144,32,32,32,125, 

32 
16810 DATA 32,32,32,82,69, 16910 

86,73,83,65,68 
16820 DATA 79,32,80,79,82, 

13,149,169,159,169 15920 
16830 DATA 169,169,169, 

169,169,169,169,169, 

169,169 16930 

16840 DATA 169,169,142, 

144,32,32,32,32,125, 

32 15940 

16850 DATA 32,32,32,74,79, 

83,69,80,32,77 
16860 DATA 46,32,71,73,76, 16950 

83,32,32,13,149 . 
16870 DATA 169,169,169, 

169,169,169,159,159, 15960 

169,169 
16880 DATA 169,169,169, 

169,144,32,32,32,32, 16970 

32 
16890 DATA 125,149,13,159, 






169,169,169,159,169, 

169 

DATA 159,159,169, 

169,169,169,13,169, 

169,169 

DATA 169,169,169, 

169,169,159,159,159, 

169,13 

DATA 169,159,159, 

169,169,169,169,169, 

169,169 

DATA 169,13,169,169, 

169,169,169,169,169, 

169 

DATA 169,169,13,159, 

169,169,169,169,169, 

169 

DATA 169,169,13,169, 

169,169,169,169,169, 

169 

DATA 169,13,169,169, 

169,169,169,169,169, 

13 

DATA 169,169,169, 

169,169,169,13,169, 

169,169 
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16980 DATA 169,169,13,169, 

169,169,169,13,169, 

169 
16990 DATA 169,13,169,169, 

13,169,13,32,32,32 
17000 DATA 32,32,32,32,32, 

142,31,178,32,178 
17010 DATA 32,117,99,105, 

32,117,105,178,32,117 
17020 DATA 99,105,32,117, 

99,105,32,176,99,105 
17030 DATA 13,32,32,32,32, 

32,32,32,32,125 
17040 DATA 32,125,32,125, 

32,125,32,125,125,125 
17050 DATA 32,125,32,125, 

32,125,32,32,32,125 
17060 DATA 32,125,13,32,32, 

32,32,32,32,32 
17070 DATA 32,171,99,179, 

32,171,99,179,32,125 
17080 DATA 125,125,32,125, 

32,32,32,171,179,32 
17090 DATA 32,171,178,107, 

13,32,32,32,32,32 
17100 DATA 32,32,32,125,32, 

: 125,32,125,32,125 
17110 DATA 32,125,125,125, 

32,125,32,178,32,125 
17120 DATA 32,32,32,125, 

125,13,32,32,32,32 
17130 DATA 32,32,32,32,177, 

32,177,32,177,32 
17140 DATA 177,32,177,106, 

107,32,106,99,107,32 
17150 DATA 106,99,107,32, 

,177,202,203,0' 

La tabla de datos creada a! ejecutar 
el programa anterior es leida con la si- 
guiente rutina en codigo maquina, que 
controla la presentacion en pantalla: 



ORG 16384 
NOP 
NOP 
NOP 

LDA #$09 
STA $D020 
LDA #$03 
STA $D021 
LDA #$00 
STA $FB 



BEQ $402A 

JSR $FFD2 

NOP 

INC $FB 

BNE $R026 

INC $FC 

CLC 

BCC $4018 

NOP 

NOP 



LDA #$41 


NOP 


STA $FC 


NOP 


LDY #$00 


NOP 


NOP 


NOP 


LDA ($FB),Y 


NOP 


NOP 


NOP 


NOP 


JSR $FFE4 


NOP 


BEQ $4035 


NOP 


RTS 


EL BASIC 



El programa BASIC utiliza un sen- 
cillo bucle FOR ... NEXT para leer 
los DATA mediante sentencias 
READ y pokearlos en memoria en 
una tabla a la cual pueda acceder el 
programa en codigo maquina. 

La tabla de datos empleza en la di- 
reccion 16640, pero es evidente que 
no contiene 32000 datos, que es el va- 
lor de I que controla el bucle 
FOR ... NEXT. La h'nea 30 dctiene el 
programa cuando hay un cero en los 
datos. EI resto de los datos son los c6- 
digos ASCII dc los caracteres, los sim- 
bolos graficos de Commodore y los c6- 
digos de control. Puedes encontrar to- 




dos estos codigos en el Apendice F de 
la Guia de Usuario del Commodore 64 
o en el Apendice C de la Guia de Re- 
ferenda para Programadores. 

IrESENTACIONES en PANTALLA; 

Como sabes, NOP significa No 
Operacion, lo cual quiere decir que 
esta instruccion no hace nada. Sin em- 
bargo, no es absolutamente inutil. Se 
suele emplear para disminuir la velo- 
cidad del microprocesador. Cuando se 
pone dentro de un bucle se queda sin 
hacer nada una y otra vez. Pero aqui 
la utilizamos como herramienta de 
programacion. 

Las instrucciones NOP se utilizan 
aqui para cortar los programas de 
forma que puedas ver claramente !o 
que esta sucediendo. Con esto tam- 
bien se le ofrece al programador la po- 
sibilidad de anadir una instruccion adi- 
cional, en el supuesto de que la ne- 
cesite, dejandole bytes disponibles 
para almacenamientos temporales 
cuando haga falta. 

La primera instruccion activa carga 
el acumulador con ei valor nueve y a 
continuacion lo almacena en la direc- 
cion de memoria D020. Esta direccion 
se encuentra en la zona de entradas/ 
salidas y controla el color del borde de 
pantalla. Responde a los mismos nu- 
meros de colores que se utilizan en el 
BASIC. Con el valor 9 se obtienc un 
borde de color marron. Seguidamente 
se almacena el valor 3 en la direccion 
D021, con lo que resulta una pantalla 
de color cyan. 

A continuacion se carga la direccion 
de comienzo de la tabla de datos, que 
es 16640, en las direcciones FB y PC 
de la pagina cero; recuerda que 16640 
en decimal es 4100 en hexadecimal. 
Despues se pone a cero el registro Y. 

La instruccion LDA ($FB),Y carga 
en el acumulador el primer byte de la 
tabla de datos. Observa que el despla- 
zamiento Y sigue siendo cero durante 
toda la rutina de presentacion en pan- 
talla mientras que se va actualizando 
el puntero de la tabla de datos, con- 
tenido en FB y PC. Pero aqui necesi- 
tamos un direccionamiento indirecto, 
cosa que en el 6520 solo esta disponi- 
ble en forma indexada. 



22 INPUT 




Codigo Maquina 





La instruccion BEQ $402A saca al 
microprocesador de la rutina cuando 
se llega al cero que hay al final dc la 
tobla de datos. A coiitinuacion JSR 
$FFD2 fuerza el salto a ia subrutina 
del Kernal ROM, encargada de pre- 
sentar un caracter en pant all a. Fijate 
en que no tienes que decirle donde 
tiene que imprimirlo. Con este mc- 
todo, el cursor se desplaza a la posi- 
cion correcta de impresion, partiendo 
de los codigos de control contenidos 
en los datos. 

INC $FB incrementa ahora el byte 
bajo del puntero. Si el resultado no es 
cero, la instruccion BNE fuerza un 
salto por encima de la instruccion si- 
guiente, la cual incrementa cl byte alto 
cuando se llega al final de una pagina. 

El bucle se cierra con las instruccio- 
nes CLC y BCC $4018. Despues de 
una instruccion CLC, el carry siempre 
estara a cero, por lo que siempre se 
cumplira la condicion para que se eje- 
cute la instruccion BCC y se producira 
un salto hacia atras hasta LDA ($FB), 
Y cargandose el siguiente byte de la 
tabla de datos. 

EL BUCLE DE PEPURACION 

En cuanto se ha presentado en la 
pantalla el ultimo caracter de la tabla 
de datos, y se carga el delimltador de 
cero, el microprocesador saha hacia 
afuera de la rutina. Pero no te va a in- 
teresar volver inmediatamente al BA- 
SIC, ya que en tal caso los mensajes 
no estarian en pantalla el tiempo su- 
ficiente para que pucdas comprobar si 



el programa funciona adecuadamente 
o no. Por eso hcmos incorporado un 
bucle de depuracion. 

La instruccion JSR $FFE4 fuerza un 
salto a la subrutina del Kernal ROM 
encargada de detectar las pulsaciones 
de tecla. Si ha habido alguna pulsa- 
cion, regresa al acumulador con el va- 
lor de la tecla pulsada. Al poner dicho 
valor en el acumulador, activa los in- 
dicadores. 

Si no se ha pulsado ninguna tecla, el 
valor resultante es y la instruccion 
BEQ $4035 fuerza un retroceso a JSR 
$FFE4. Pero si en cambio se pulso al- 
guna tecla, el acumulador contendra 
un valor distinto de cero y no se acti- 
vara el indicador de cero. En conse- 
cuencia la instruccion BEQ no forzara 
salto alguno y el micro abandon ara la 
rutina. 

En otras palabras, el microproce- 
sador recorre esta rutina una vez y 
otra, manteniendo en la pantalla los 
titulares de presentacion del juego, 
hasta que se pulse una tecla cual- 
quiera. 

La siguiente rutina escribira por en- 
cima de este bucle de depuracion, 
pero puedcs usarlo para ir compro- 
bando lo que llevas tccleado. 

ELACANTILADO 

Ahora tienes que teclear el si- 
guiente programa de pokeo en BA- 
SIC, ejecutarlo, y guardar en cinta 
mediante un SAVE la tabla de datos 
que construye, igual que hicimos an- 
tes: 

10 ADD=17184:FORI=0TO 

32000 
20 READA%:POKEADD + l,A% 
30 IFA% = 255GOTO50 
40 NEXT 
50 END 
17184 DATA 8,21,31,117,105, 

0,9,21,98,0 
17194 DATA 10,21,106,107, 

178,0,11,23,98,0 
17204 DATA 12,23,173,189, 

178,0,13,25,98,0 
17214 DATA 14,25,177,176, 

174,0,15,26,171,0 
17224 DATA 16,26,177,176, 



174,0,17,27,171,0 
17234 DATA 18,27,177,0,0,0, 
255,0 

A continuacion puedes teclear la ru- 
tina en codigo maquina, ensamblarla, 
guardaria y llamarla, utilizando nue- 
vamente el metodo visto anterior- 
mente: 



ORG 16437 

LDY #$FF 

(NY 

LDX $4320, Y 

I NY 

LDA $4320, Y 

BEQ $4059 

INY 

STY $FB 

TAY 

JSR $FFF0 

LDY $FB 



LDA $4320, Y 

BEQ $4037 

INY 

JSR $FFD2 

CLC 

BCC $404A 

NOP 

NOP 

NOP 

JSR $FFE4 

BEQ $4059 



FUNGIGNAIVIIENTO DEL 
PROGRAIVIA 

Esta parte del programa utiliza los 
simbolos graficos del Commodore 
para formar letras ampliadas. Dichas 
letras se presentan directamente en la 
pantalla utilizando la rutina PLOT del 
Kernal ROM. Esta rutina sitiia el cur- 
sor en una posicion especificada de la 
pantalla, imprimiendo a continuacion 
el caracter en dicha posicion. 
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En el programa cle BASIC, cada 
seccion de los DATA esta delimitada 
por un 0. Los dos primeros valores de 
cada seccion especifican las coorde- 
nadas X e Y del principio de una linea 
de caracteres. La propia tabla finaliza 
con tres ceros. 

El 255 que figura a continuacion 
sirve para informal al programa de po- 
keado de cuando tiene que pararse. El 
propio programa pokeador empieza 
por construir su tabla de datos par- 
tiendo de 17184 liasta completar los 
datos de la pagina de presentacion. 
Pero es evidente que no hay 32000 va- 
lores, como implicaria el limitc del va- 
lor de I en el bucle FOR ... NEXT. 
La tinea 30 se ocupa de esto, detec- 
tando el momento en que se alcanza 
el valor 255 y dando fin al programa. 

EL CODIGO MAQUINA 

La rutina en codigo maquina co- 
mienza inicializando un indice en el 
registro Y. Se fija su valor en FF, ya 
que Y se incrementa al principio del 
bucle. De esta forma, cuando el pro- 
cesador se va por primera vez a la ru- 
tina de impresion, el valor de Y es 
cero. En esta ocasion utilizamos un In- 
dice, a diferencia de la primera parte 
de la rutina de impresion en que uti- 
lizabamos un puntero de dos bytes con 
indice nulo, debido a que los datos no 
van a superar los 255 bytes. 

LDX $4320, Y carga en el registro Y 
el primer byte de la tabla de datos, es 
decir, la coordenada Y del comienzo 
de la primera linea de caracteres. Se 
incrementa el registro Y y se carga el 
segundo byte de la tabla, la coorde- 
nada X, en el acamulador. El valor 
4320 en hexadecimal es 17184 en de- 
cimal, que es la direccion inicial del 
principio de la tabla de datos. 

Si esta segunda coordenada es cero, 
la instruccion BEQ $4059 fuerza la sa- 
lida de la rutina. For eso se utilizan 
tres ceros para marcar el final de los 
datos. El primero de el los indica al 
procesador que debe volver had a 
atras y cargar nuevas coordenadas co- 
rrespondientes al principio de la linea 
siguiente. A continuacion el indice Y 
cuenta dos elementos mas de la tabla 
hast a que se ensaya un byte. 



El indice Y se incrementa y se al- 
macena en la direccion FB de la pa- 
gina cero, ya que se necesitara mas 
adelante. La instruccion TAY trans- 
fiere al registro Y la coordenada con- 
tenida en el acumulador. Ahora ya es- 
tan las coordenadas en los registros re- 
queridos por la rutina PLOT. 

La instruccion JSR $FFFO fuerza un 
salto a la rutina ROM que mueve el 
cursor a la posicion especificada en los 
registros X e Y. 

Cuando se posiciona el cursor y el 
procesador regresa a esta rutina, se 
restaura de nuevo el registro Y, car- 
gandolo a partir de FB. 

Despues LDA $4320, Y carga en el 
acumulador el siguiente byte de la ta- 
bla de datos; Y habia sido ya incre- 
mentado antes de transferirlo. Si el 
byte cargado era un cero, la instruc- 
cion BEQ $4037 fuerza un salto hacia 
atras hasta la primera instruccion 
TNY, quedando en condiciones de car- 
gar las coordenadas iniciales de la li- 
nea siguiente o salir de la rutina. 

Si el byte cargado no es un cero, el 
indice Y se incrementa nuevamente y 
el procesador salta a la subrutina de 
ROM encargada de sacar los caracte- 
res por pantalla. CLC y BCC $404A 
envian al procesador a cargar y pre- 
sentar el siguiente byte de la tabla de 
datos. 

Al leer la linea DATA, observaras 



que 8 y 21 son las coordenadas Y y X 
de la primera posicion de impresion. 
El numero 31 hace que los siguientes 
caracteres aparezcan en azul. 117 y 
105 son los dos arcos que juntos con- 
figuran la parte superior de la letra C. 
La siguiente linea empieza con 9 y 
21, que es un caracter cuadrado si- 
tuado debajo del principio de la linea 
anterior. El 98 da una linea vertical 
que forma la parte posterior de la C, 
y asi sucesivamente. Puedes ir dedu- 
ciendo los caracteres a imprimir a par- 
tir de las tablas del Apendice F de la 
Guia de Usuario del Commodore 64, 

del Apendice C de la Guia del Pro- 
gramador . 

Observando las coordenadas pue- 
des ver que las letras se imprimen en 
la pantalla, desplazadas todas ellas un 
caracter cuadrado hacia la derecha. 
Deaqui resulta el declive de la palabra 

1 CLIFF I por la pantalla. 

CORRECCIONES 

Normalmente, ei procesador se iria 
desde aqui al resto del programa, pero 
por ahora hemos llegado al final de la 
primera parte de Abismo. Por eso ne- 
cesitas de momento otro bucle de de- 
puracion que retenga la presentacion 
en pantalla a fin de que puedas ver si 
el programa trabaja de manera ade- 
cuada. 



Los lectores que deseeis entrar este programa debeis seguir los siguientes 
pasos: 

1) Limpiar la zona de trabajo y/o leer rutinas ya grabadas. 

2) Entrar las diferentes.subrutinas del articulo. 

3) Guardar la nueva version del programa 
PRIMERPASO: Limpiar la zona de trabajo. 

a) Desde un ensamblador o monitor F3000, 6900,00 

b) Desde BASIC hacer en modo directo: 

FOR N = 12288 TO 26880; POKE N,0: NEXT (RETURN) 
LECTURA DE RUTINAS GRABADAS: 

a) Desde ensamblador L "nombre del programa", xx 

b) Desde BASIC hacer LOAD "nombre del programa", xx,l Siendo xx=01 
para la cinta y 08 para el disco 

SEGUNDO PASO: Entrada de rutmas 

a) Desde ensamblador: entrar las rutinas en ensamblador, o bien salir 
hasta el BASIC y entrar los cargadores de BASIC 

b) Desde el BASIC: entrar los cargadores de BASIC 

TERCER PASO: Guardar el programa ^ 

a) Desde ensamblador: S"nombre nueva version", xx 

b) Desde el BASIC hacer en modo directo: 

POKE 43,0: POKE 44,48 (POKE 45,0: POKE 46, 105 (return) 
A continuacion hacer SAVE" nombre nueva version", xx,l 

ARRANQUE DEL PROGRAMA: 
Hacer SYS 26448 cuando esten instaladas todas las subrutinas. ' 
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PROGRAMA MULTIGESTION 

Este mes, en esta seccion, os presentamos un programa que engloba cinco utilidades: un fichero 
capaz de almacenar la informacrbn de 100 fichas; una pequena gura telefonica; un programa de 
contabilidad; un control de stocks y un ultimo programa que nos permite construir graflcos de 
barras. Es lo que se llama un programa integrado. 

Los subprogramas de control de stocks, la guia telefonica y la contabilidad ya se encuentran explicados en 
sus propios menus y son de facil manejo. Las instrucciones para trabajar con el fichero son: 

e; para entrar datos en las fichas. 

s: para pasar a la siguiente ficha. 

a; para acceder a la ficha anterior. 

n: para buscar una ficha por su numero. 

h: para buscar una ficha por el indice. 

«Carga», «salvado», «salida» son instrucciones del fichero que debemos escribir por complete. «Salvado» 

graba la cinta en el contenido de las fichas. «Carga» recupera de la cinta dicho contenido. Y «salida» 

vuelve el programa al menu principal. Para utilizar el programa de graficos de barras tan solo debemos 

saber que «s» es para volver al menu principal y «o» para pasar al siguiente grafico. 

Para acceder al programa se nos pedira un codigo, y este es: SOOe o XSPe SOOexOa. 

F^Lix Ortega 

10 A$(1) = "GAST0SD0MESTIC0S":A$(2) = "ENTRET€NIMIENT0": A$ {3) = "ALQUILERES" 

15 A${8) = "INGRES.":A$(4)-"R0PA":A$(5) = "C0CHE":A${6)-"VACACI0N"'A$(7) = "VARI0S" 

20 DIMC$(1OO,8):C=1:DIMS${3OO,4):DIMD(15):DIMT$(100 1) 

25 DIMD$(4,400):CO-0:GOTO850 

30 REM ***** CONTROL DE STOCKS ***** 

35 POKE 53280, 0:POKE 53281, 0:PRINT"[SHIFT + CLR /H0ME][CTRL+5][ 10*CRSR ABAJO][ 
8*CRSR DOHA.]"; 

40 PRINT "[SHIFT+CjONTROL DE [SHIFT+S] TOCKS": FOR A-0 TO 900-NEXT A 
45 PRINT 'TSHIFT+CLR/H0ME]";TAB(15); "[SHIFT+OJPCIONES": PRINT TAB(15)- 

"^:^ = ^ = = = ^". PRINT "[ 2*CRSR ABAJO]" 
50 PRINT "[SHIFT+CIARGAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] ^^ = = = ^ = = > i" 
55 PRINT "[SHIFT+SJALVAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] ^ = ^ = ^ = = = > 2" 
60 PRINT "[SHIFT+LJISTAR EXISTENCIAS ACTUALES [ 2 ESPACIOS] ^ = = = = ^ = ^> 3" 
65 PRINT ;'[SHIFT+L]ISTAR EXISTENCIAS A RENOVAR = = - = - = --> 4" 
70 PRINT "[SHIFT+C]AMBIAR DATOS DE UN ELEMENTO - = -- = - = = > 5" 
75 PRINT "[SHIFT+E]NTRAR NUMERO DE ELEMENTOS VENDIDOS => 6" 
80 PRINT"[SHIFT+S]ALIDAAL MENU PRINCIPAL [ 5 ESPACIOS] - = = = -- = -> 7" 
85 PRINT 'T 3*CRSR ABAJO] [ 40*COMM + @]" 

90 PRINT" t [3]->[SHIFT + M]ENU/[2ESPACI0S][CTRL + 9][SHIFT+P]RES OPCIONDESEADA 

[CTRL + 0]"; 
95 GETA$' 
100 IF A$< "1" OR A$>"7" THEN 95 

105 PRINT 'TSHIFT+CLR/HOME]": ON VAL (A$) GOSUB 1530,1440,115 180 240 390 550 

110 GOTO 45 ^ 

115 FOR A-0TO 300 ' ' 

120 IFS$(A,0) = " "THEN 170 

125 PRINT "[SHIFT+CLR/HOME]" 

130 PRINT "[SHIFT+L]IBRO:";S$(A,0) 

135 PRINT "[SHIFT+E]DITORIAL: ";S$(A,1) ' ' 



INPUT 25 



PRINT "[SHIFT+AIUTOR: ";S$(A,2) 

PRINT "[SHIFT+CIODIGO REF.:" ;S$(A,3) 

IF VAL{S${A,4))<VAL(S$(A,3)) THEN PRINT "[CTRL +9] [SHIFT + E]XISTENCIAS 

RESTANTES:";S$(A,4);"[CTRL + 0]" 

IFVAL{S$(A,4))> = VAL{S$(A,3))THENPRINT"[SHIFT+E]XISTENCIASRESTANTES:";S$(A,4) 

GET A$: IF A$ - " " THEN 160 

IF A$ = "t "THEN 45 

NEXT A 

RETURN 

OPEN 4,4:CiVlD 4 

FOR A-0 TO 300 

IF S$(A,0)= " " THEN 230 

IF VAL (S$ (A, 4))> VAL{S$(A,3)) THEN 230 

PRINT "[SHIFT+LJIBRO:" ;S$(A,0) 

PRINT "[SHIFT+EJDITORIAL:" ;S${A,1) 

PRINT "[SHIFT+A]UTOR:" ;S$(A,2) 

PRINT "[SHIFT+CIODIGO REF.:" ;S$(A,3) 

PRINT "[SHIFT+EJXISTENCIAS RESTANTES:" ;S$(A,4) 



140 
145 
150 

155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 

230 NEXT A 

235 CLOSE 4:RETURN 

240 OPEN 1,0,0: PRINT 'TSHIFT + NJOMBRE DEL LIBRO": INPUT#1,A$: PRINT 

245 D = -l 

250 FOR A=0TO300 

255 IF S${A,0)-A$ AND D = -l THEN D = A 

260 NEXT A 

265 IF D--1 THEN PRINT 'TSHIFT+N]0 SE HA ENCONTRADO ESE LIBRO.": CLOSE 1:G0T0 240 

270 A=D 

275 PRINT "[SHIFT+NJOMBRE DEL LIBRO:" ;S$(A,0) 

280 PRINT "[SHIFT+EIDITORIAL:" ;S$(A,1) 

285 PRINT "[SHIFT+AJUTOR:" ;S$(A,2) 

290 PRINT "[SHIFT+CJODIGO REF.:" iS${A,3) 

295 PRINT 'TSHiFT+EjXlSTENCIAS RESTANTES" ;S${A,4) 

'^(h(h PRINT " ************** ^****** ***************** " 

305 PRINT "[SHIFT+NJUEVO NOMBRE DEL LIBRO:": INPUT#1,A$:PRINT 

310 IF A$ = " "THEN A$-S$(A,0) 

315 S$(A, 0)-A$ 

320 PRINT "[SHIFT+NIUEVA EDITORIAL:" ;: iNPUT#l,A$:PRlNT 

325 IFA$ = " " THEN A$ = S$(A,1) 

330 S$(A,1) = A$ 

335 PRINT "[SHIFT+NJUEVO AUTOR:" ;:INPUT#1,A$:PRINT 

340 IFA$ = " "THEN A$-S$(A,2) 

345 S$(A,2) = A$ 

350 PRINT "[SHIFT+NJUEVO CODIGO REF.:" ;:INPUT#1,A$:PRINT 

355 [FA$-" " THEN A$-S$(A,3) 

360 S$(A,3) = A$ 

365 PRINT "[SHIFT+NIUEVAS EXISTENCIAS RESTANTES:" ;:INPUT#1,A$:PRINT 

370 IFA$-" "THEN A$-S$(A,4) 

375 S$(A,4)-A$ 

380 CLOSE 1 

385 RETURN ' 
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N]0 HAY TAL LIBRO":CLOSE 1:G0T0 390 



390 OPEN 1,0,0: PRINT "[SHIFT + N]OMBRE DEL LIBRO": INPUT#1,A$:PRINT 

395 D = -l 

400 FOR A = TO 300 

405 IF S$(A,0)-A$ THEN D = A 

410 NEXT A 

415 IF D--1 THEN PRINT 'TSHIFT- 

420 A = D 

425 PRINT "[SHIFT+EIXISTENCIAS ANTERIORES:" ;S$(A,4) 

430 PRINT "[SHIFT+NJUMERO VENDIDO:" :INPUT#1, N:CLOSE 1 

435 S$ {A,4)-STR$(VAL(S$(A,4))-N) 

440 RETURN 

445 POKE 53280, 0:POKE 53281, 0:PRINT CHR$(8);CHR$(14);"[SHIFT + CLR/H0ME][2*CRSR 

ABAJ0][4*CRSRDCHA.][CTRL + 6]"; 

450 PRINT"[CTRL + 9][5ESPACIOS][CTRL + 0][2ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0][2 

ESPACIOS][SHIFT + ESPACIO][CTRL + 9][4ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][3 

ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][2ESPACIOS][CTRL + 0][CTRL + 9][2ESPAC!OS] 
[CTRL + 0]" 

455 PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 

[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0][2 

ESPACIOS][CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0]" 
460 PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 

[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPAC!OS][CTRL + 9][CTRL + 0][2 

ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL+0]" 
465 PR1NT"[4ESPACIOS][CTRL + 9][3ESPACIOS][CTRL + 0][4ESPACIOS][CTRL + 9][3ESPACIOS] 

[CTRL + 0][4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL+9][CTRL + 0][3ESPACIOS] 

[CTRL + 9][CTRL + 0][2ESPACIOS.][CTRL + 9][CTRL + 0][3ESPACiOS][CTRL + 9][CTRL+0]" 
470 PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] ' 

[CTRL+9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0][2 

ESPAC!OS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 
475 PRINT"[4ESPACIOSI[CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS] 

[CTRL+9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0][2 

ESPACIOS][CTRL+9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 
480 PRINT"[4ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0][3 

ESPACIOS][CTRL + 9]t4ESPACIOS][CTRL + 0][3ESPACIOS][CTRL + 9][3ESPACiOS][CTRL + 0][3 

ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS][CTRL + 9][CTRL + 0]" 
485 PRINT"[3*CRSRABAJO][12ESPACIOS][CTRL + 9][4ESPACIOS][CTRL + 0][2ESPACIOS][CTRL + 

9][5ESPACIOS][CTRL + 0][5ESPACIOS][CTRL + 9][CTRL + 0]" 

490 PRINT"[11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL+9][CTRL + 0][8ESPACIOS] 
[CTRL+9][2ESPACIOS][CTRL + 0]" 

495 PRINT"[11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][7ESPACIOS] 
[CTRL + 9][CTRL + 0][CTRL + 9][CTRL + 0]" 

500 PRINT"[llESPACIOS][CTRL + 9][CTRL + 0][6ESPAClOS][CTRL + 9][5ESPACIOS][CTRL + 0][2 

ESPACIOS][CTRL+9][CTRL + 0][2ESPACIOS][CTRL + 9][CTRL + 0]" 
505 PRINT"[llESPACIOS][CTRL + 9][CTRL + 0][6ESPACiOS][CTRL + 9][CTRL + 0][3ESPACIOS] 

[CTRL + 9][CTRL + 0][2ESPACIOS][CTRL + 9][5ESPACIOS][CTRL + 0]" 
510 PRINT'T11ESPACIOS][CTRL + 9][CTRL + 0][6ESPACIOS][CTRL + 9][CTRL + 0][3ESPACIOS] 

[CTRL + 9][CTRL + 0][5ESPACIOS][CTRL + 9][CTRL + 0]" 
515 PRINT"[12ESPACIOS][CTRL + 9][4ESPACIOS][CTRL+.0][SHIFT+ESPACIO][CTRL + 9][5 

ESPACIOS][CTRL + 0][SHIFT+ESPACIO][4ESPACIOS][CTRL+9][CTRL + 0]" 
520 PRINT "[ 3*CRSR ABAJO] [ 40*COMM + @]"; 
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525 PRINT"[SHIFT + R]ETURN = >AVANZAR[9ESPACI0S]F1->[CTRL-I-9][SHIFT + T]ERMINAR 

[CTRL + 0]"; 
530 GETA$:IFA$-" " THEN 530 
535 IFA$ = CHR${13)THEN550 

540 IF A$ = CHR$(133) THENPRINT "[SHIFT + CLR/HOME]": SYS 58648: END 
545 IF A$<>CHR$(13) OR A$<>CHR$(133) THEN 530 
550 REM ***** MENU PRINCIPAL ***** 

555 P0KE53272,23:P0KE56325,58:PRINT"[SHIFT + CLR/H0IVIE][CRSRABAJ0][13*CRSRDCHA. 

[SHIFT+MIENUPRINCIPAL" 
560 PRINT "[ 13 * CRSR DCHA.] = = = = = = = ::^^^^^ = = " 

565 PRINT"[2*CRSRABAJO][CTRL + 9]F1[CTRL + 0][2ESPACIOS] = -- - = - = = = - = = -->[2 

ESPACIOS][SHIFT + F]ICHERO " 
570 PRINT"[2*CRSRABAJO][CTRL + 9JF2[CTRL + 0][2ESPACIOS] = --- = = --- = --- = >[2 

ESPACIOS][SHIFT + L]ISTINTELEFONICO " 
575 PRINT"[2*CRSRABAJO][CTRL + 9]F3[CTRL + 0][2ESPACIOS]- = = = = -- = -- = = = = >[2 

ESPACIOS][SHIFT + C]ONTABILIDAD " 
580 PRINT"[2*CRSRABAJO][CTRL + 9]F5[CTRL + 0][2ESPACIOS] = = = = --- = - = = = = ->[2 
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595 
600 

605 
610 
615 
620 
625 
630 
635 
640 
645 

650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 

755 
760 
765 
770 
775 
780 
785 
790 
795 
800 



ESPACI0S][SHIFT + S]T0CKS[3ESPACI0S]" 

PR!NT"[2*CRSRABAJ0]F7[2ESPACI0S] = = = -- = = = - = -- = = >[2ESPACI0S][SHIFT + 
GIRAFICOS" 

PRINT"[2*CRSRABAJ0][10ESPACI0S][CTRL+9][SHIFT+P]ULSE0PC!0NDESEADA[CTRL + 

0]" 

PRINT "[CRSR ABAJO] [ 40*C0MM + @]"; 

PRINT"[SHIFT + H] = >H0RA[11ESPACI0S][SHIFT + R]ETURN = >[SHIFT + F][SHIFT+E][SHIFT 

+ C][SHIFT + 0][SHIFT+M][2*SHIFT+ESPACI0][SHIFT + C]64"; 

GET N$:IF N$ = "" THEN 605 

IF N$ = "H" OR N$="[SHIFT+H]" THEN 1135 

IF N$ = CHR$(13)THEN 445 

IF N$ = "[F2]" THEN 1160 

IF N$ = CHR$(133) THEN 650 

IF N$ = CHR${134) THEN 1530 

IF N$ = CHR$(136) THEN 950 ;, 

IF N$ = CHR$(135) THEN 30 

IF N$<>CHR$(13) OR N$<> CHR$(133) OR N$<>CHR$(134) OR N$<>CHR${135) THEN 

925 

REM ***** FICHERO ***** 

PRINT "[SHIFT+CLR/HOME]" 

PRINT "[COMM + A][ 38*SHIFT+*][C0MM + S]"; 

FOR E=0TO 16 

PRINT "[SHIFT+-][ 38 ESPACI0S][SHIFT + -1"; 

NEXTE 

PRINT 'TCOMM + Z][ 38*SHIFT+*][COMM+X]" 

PRINT 'TCLR/HOME][ 2*CRSR ABAJO][CRSR DCHA.][SHIFT + F]ICHA ";C,"->";C$ (0,0) 

FOR E=l TO 8: PRINT'TCRSR ABAJO][CRSR DCHA.]";C$(C,E): NEXT E 

PRINT "[ 3*CRSR ABAJO] =>;:OPEN 1,0, 0: INPUT#1,D$:PRINT: CLOSE 1 

IF D$ = "E" OR D$ = [SHIFT+E] THEN GOSUB 745 

IF D$-"CARGA" THEN GOSUB 1530 

IF D$-"SALVADO" THEN GOSUB 1440 

IF D$ = "S" THEN C = C+1: IF O100 THEN C-100 

IF D$ = "A" THEN C = C-1: IF C< = THEN C-1 

IF D$ = "N" THEN INPUT C:IFC< = OR C> 100 THEN = 1 . ^ 

IF D$-"B" THEN GOSUB 765 

IF D$="SALIDA" THEN 550 

PRINT "[SHIFT+CLR/HOME]": GOTO 660 



REI 



ENTRADA 



PRINT 'TCLR/HOME][ 2*CRSR ABAJO]",;; "[ 3*CRSR DCHA.]";:GOSUB 800: C$CC, 
0)-Q$:PRINT 

FORE=1TO8:PRINT"[CRSRABAJO][CRSRDCHAJ";:GOSUB800:C${C,E) = Q$:PRINT- NEXTE 
RETURN 

INPUT "[SHIFT+T]ITULO->";T$ 

CI = - 1 

FOR F = TO 100 ■ .. ■ "" . 

IFC$(F,0) = T$THEN Cl-F 

NEXT F 

IF CI— 1 THEN PRINT "[SHIFT+N]0 ESTA ALMACENADO TAL TITULO"; GOTO 765 

C=C1: RETURN 



INPUT 29 



805 GET K$ 

810 IF K$ = CHR$(17) OR K$-CHR$(145) THEN 805 

815 IF K$-CHR$(13) THEN PRINT "[SHIFT + ESPACIO]";: RETURN 

820 IF K$ = CHR$(29) THEN PRINT"[CTRL + 0] [CRSR IZQDA.]"; 

825 IF K$ = CHR$(157) THEN PRINT "[CTRL + 0] [CRSR IZQDA.]"; 

830 IF K$-CHR$(20) OR K$-CHR$(148) THEN 805 

835 IF K$ = CHR$(19) OR K$-CHR$(147)THEN 805 

840 IF K$-CHR$(34) THEN805 

845 PRINT K$;"[CTRL+9][CTRL+0][CRSR IZQDA.]"; 

850 Q$-Q$ + K$ 

855 GOTO 805 

860 REM ***** ENTRADA SISTEMA ***** 

865 POKE650,128:POKE53280,0:POKE53281,0:PRINrTSHIFT+CLR/HOIVIE]";CHR$(8);CHR${14) 

870 PRINT "[CTRL+6][SHIFT+CLR/H0ME][ 23*CRSR ABAJO]! 40*COMM + @]"; 

875 PRINT "[SHIFT + C]OD(GO S. POR FAVOR -> [CTRL+1]"; 

880 INPUT CS$ 

885 IF CS$ = "XSPE S00EX0A" OR CS$="S00E" THEN 900 

890 IFCS$<>"XSPE S00EX0A" OR CS$<>"S00E" OR 0$-" " THEN 895 

895 POKE 53272 40: POKE 56325,58: POKE 648,128: STOP - 

900 PRINT"[CTRL + 6][CRSRABAJO][SHIFT + CLR/HOME][22*CRSRABAJO][40*COMM + @]"; 

905 PRINT "[CTRL + 9][3 ESPACIOS][SHIFT+C]ODIGO ACEPTADO -[2 

ESPACIOS][SHIFT+E]NTRADA INICIADA [2 ESPACIOS][CTRL+0]"; 
910 FOR WW = 0TO 1000 
915 NEXT WW 

920 GOTO 1105 ' .- * 

925 REM ***** OPCION NO VALIDA ***** 
930 PRINT "[CLR/HOME][ 22*CRSR ABAJO] [ 40 *COMM + @]"; 
935 PRINT" ********** [SHIFT + 0]PCION NO VALIDA 
940 FOR WW-0 TO 1000: NEXT 
945 POKE 56325,255: GOTO 550 

REM ***** GRAFICOS ***** 

PRINT "[SHIFT+CLR/HOME]" 

INPUT "[SHIFT+R]OTUL0 VERTICAL";V$ 

INPUT "[SHIFT+R]OTULO HORIZONTAL ";H$ 

PRINT: FOR A=l TO 15 

PRINT 'TSHIFT+VjALOR DEL DADO ";A;: INPUT D(A) 

NEXT A 



i< -k i<: -k ^ ^ ^ ^rk ^ 



950 

955 

960 

965 

970 

975 

980 

985 

990 

995 

1000 

1005 

1010 

1015 

1020 

1025 

1030 



FOR A=l TO 15 

IF D(A}>M THEN M-D(A) 

NEXT A 

S = 20/M 

FOR A=l TO 15 

D{A)-D(A)*S 

NEXT A 

REM ***** DIBUJO GRAFICO 

PRINT "[SHIFT+CLR/HOME]": 



FOR A-1 TO LEN(V$) 



**. - 



Debido a la extension de este programa su segunda y ultima parte se publicara en el siguiente 

numero de INPUT. 



INPUT 



3065 
4500 



DCHA.][C0MM. + 1] 
[SH1FT+P][SHIFT+E] 
[SHIFT+I][SHIFT+G] 
[SHIFT+A][CLR/HOME]"; 4505 

:GOTO 3020 
H%="l:l%--1: 

J%--1:GOTO3020 4510 

FOR A- 1760 TO 1772 



STEP3:F0R B-ATO 

A+1:P0KE B+54272, 

9:NEXT B 

GET A$:IF A$ = CHR$(32) 

THENN% = {A-1757)/ 

3:G0T0 4515 

FOR B-ATO A+1:P0KE 

B + 54272, 10:NEXTB, 




A:G0T0 4500 
4515 FOR Z=N%T0 1 

STEP-1:KK-((Z-1)*3) + 

1760;POKE KK + 54272, 

9:P0KE KK + 

54273,9 
4520 GET A$:IF A$>"9" OR 

(A$<"5" AND A$<>"0") 

THEN4520 
4525 IFA$ = "0" THENA$- 

"10" 
4530 ON VAL{A$)-4G0SUB 

5000,6000,7000,5500, 

6500,7500 
4535 DR-50:D[VI=40:GOSUB 

8000:GOSUB 

2000:KK=((Z-1)*3) + 

1760 
4540 IF D%-0 ANDZ=1 

THEN4550 
4545 IF D%-0THENPOKE 

KK + 54272, 10:POKE 

KK+54273,10: 

NEXTZ 
4550 FOR A=1760TO 1772 

STEP3:F0R B-ATO 

A+1:P0KE B+54272, 

10:NEXT B,A: 

RETURN 
5000 PRINT "[CLR/H0ME][ 

4*CRSR ABAJO][ 8*CRSR 

DCHA.]";F$(R1%(P%));"[ 

2*CRSR ABAJO][ 3*CRSR 

IZQDA.]"; 
5005 IF P%-15THENP%- 

-1 
5010 P% = P%+1:PRINT 

F$(R1%(P%));"[ 2*CRSR 

ABAJ0][3*CRSR IZQDA.]"; 
5015 IFP%=15THENPRINT 

F$(R1%(0));: 

RETURN 
5020 PRINT F$(R1%(P% + 1)); 

:RETURN 
5500 IF P%<2THENPRINT 

'TCLR/HOMEJC 4*CRSR 

ABAJO][ 8*CRSR DOHA.]"; 

F$(R1%(14+P%));"[ 

2*CRSR ABAJO][ 3*CRSR 

IZQDA.]";:GOTO 5510 
5505 PRINT "[CLR/HOME][ 

4*CRSR ABAJO][ 8*CRSR 
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DCHA.]";F$(Rl%(P%-2)); 

"[ 2*CRSR ABAJO][ 

3*CRSR IZQDA.]"; 
5510 IF P% = 0THENP%=16 
5515 P%=P%-1:PRINT 

F$(R1%(P%));"[ 2*CRSR 

ABAJO][ 3*CRSR IZQDA.]"; 
5520 IF P%=15 THENPRINT 

F$(R1%{0));: 

RETURN 
5525 PRINT F$(R1%{P% + 1)); 

:RETURN 
6000 PRINT "[CLR/HOME][ 

4*CRSR ABAJO]","[ 

5*CRSR DCHA.]"; 

F$(R2%(Q%));"[ 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
6005 IFQ%-15THENQ% = 

-1 

6010 Q%=Q%+1:PRINT 

F$(R2%(Q%));"[ 2*CRSR 
ABAJO][ 3*CRSR 
IZQDA.]"; 

6015 IF Q%-15 THENPRINT 

F$(R2%(0));: 

RETURN 
6020 PRINT F$(R2%(Q% + 1)); 

:RETURN 
6500 IF Q%<2 THENPRINT 

"[CLR/HOME][ 4*CRSR 

ABAJO]","[ 5*CRSR 

DCHA.]"; 

F$(R2%{14+Q%));"[ 

2*CRSR ABAJ0][3*CRSR 

IZQDA.]";:GOTO 

6510 
6505 PRINT "[CLR/HOME][ 

4*CRSR ABAJO]'\"[ 

5*CRSR DCHA.]"; 

F${R2%(Q%-2));"[ 

2*CRSR ABAJO][ 3*CRSR 

IZQDA.]"; 
6510 IFQ% = 0THENQ%- 

16 
6515 Q%-Q%~1:PRINT 

F$(R2%(Q%));"[2*CRSR 
.ABAJ0][3*CRSR 

IZQDA.]"; 
6520 IF Q%-15 THENPRINT 

F$(R2%(0));: 

RETURN 



6525 PRINT F$(R2%CQ%+1)); 

iRETURN 
7000 PRINT "[CLR/HOIVIE][ 

4*CRSR ABAJO",,"[ 

2*CRSR DCHA.]"; 

F$(R3%(R%));"[ 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7005 IFR%=15THENR% = 

-1 
7010 R% + R%+1:PRINT 

F${R3%(R%));'T 2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7015 IF R%-15 THENPRINT 

F$(R3%(0));: 

RETURN 
7020 PRINT F${R3%(R%+1)); 

:RETURN 
7500 IF R%<2 THENPRINT 

"[CLR/HOME][ 4*CRSR 

ABAJO]",/'[ 2*CRSR 

DCHA.]"; 

F$(R3%(14+R%));"[ 

2*CRSR ABAJO][ 3*CRSR 

IZQDA.]";:GOTO 

7510 
7505 PRINT "[CLR/HOME][ 

4*CRSR ABAJO]",,"[ 

2*CRSR DCHAJ"; 

F$(R3%(R7o-2)};"[ 

2*CRSR ABAJO][ 3*CRSR 

IZQDA.]"; 
7510 IF R%-0THENR%- 

16 
7515 R% = R%-1:PRINT 

F$(R3%(R%));"[2*CRSR 

ABAJO][ 3*CRSR 

IZQDA.]"; 
7520 IF R%-15 THENPRINT 

F$CR3%(0));: 

RETURN 
7525 PRINT F$(R3%(R%+1)); 

:RETURN 

La Iinea 3000 toma un numero al 
azar, el cual determina si se le ofrecen 
mas avances al jugador, mientras que 
la Iinea 3005 activa el flag de parada 
cuando se ha tornado el numero apro- 
piado. 

Las lineas 3020 a 2065 hacen par- 
padear las luces de la apuesta (la can- 



tidad apostada) y del stop, y leen lo 
que ha pulsado el jugador. 

Las lineas 4500 a 4550 constituyen la 
rutina del avance. Las subrutinas para 
mover las ruletas son llamadas segun 
la eleccion o elecciones del jugador. 
Las lineas 5000 a 5205 mueven hacia 
arriba la primera ruleta, mientras que 
las lineas 5500 a 5525 la mueven hacia 
abajo. 

Las lineas 6000 a 6025 y las lineas 
6500 a 6525 hacen lo propio con la se- 
gunda ruleta, y las lineas 7000 a 7025, 
asi como las lineas 7500 a 7525, con- 
troian la tercera ruleta. 

MAS COS AS 

8000 S=54272:P0KES, 

150:POKES + 1, 

50 + DM:POKE S + 5, 

0:POKES+6,240:POKE 

S + 24,15 
8005 POKE S+4,17:F0R DD = 1 

TO DR:NEXT DD:POKE 

S+24, 

0:DM = DM + 10:RETURN 
9000 FOR A=1172 TO 1532 

STEP40:FOR B=ATO 

A+4:P0KE B + 54272, 

15:NEXT B,A:RETURN 
9500 PRINT "[CLR/HOIVIE][ 

21*CRSR ABAJO]", ,"[ 

7*CRSR 

DCHA.][C0MM + 6][SHIFT 

+ Z][ 7*CRSR 

IZQDA.][C0MM. + 1]"; 

:IN = INT (M/100) 
9505 RM-M-(IN*100):PRINT 

M[D$(STR$(IN),2); 

"[SHIFT+P]"; 

MID$(STR$(RM) + "0",2, 

2):RETURN 

Las lineas 8000 a 8005 son efectos 
sonoros activados a la parada de las 
ruletas. Ya tuvimos ocasion de exa- 
minarlos en esta revista. Las lineas 
9000 a 9505 borran la visualizacion de 
la apuesta a la derecha de las ruletas, 
con lo que aparece apagado y pronto 
para el siguiente intento en Superfru- 
tas, el juego para apostar a boton pul- 
sado. 
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EL ZORRO 
Y LAS OCAS (I) 



CONVIRTIENDO EL ORDENADOR 
EN UN JUGADOR HABIL 



EL ZORRO, LAS OCAS 



YELAJEDREZ 



TEORIA DEL PROGRAMA 



Tu ordenador, para jugar, puede 
convertirse en un astuto zorro o en unas 
temerosas ocas. 

Observa como se pueden aplicar me- 
todos de Inteligencia Artificial a progra- 
mas escritos capaces de pensar. 

En un numero anterior de INPUT 
viste como era posible escribir un pro- 
grama Otcio, en ej que el ordenador 
jugaba de un mode bastante aceptable 
contra ti. En cualquier caso, con un 
poco de practica, seguro que fuiste ca- 
paz de veneer al ordenador la mayoria 
de las veces. 

En el curso de las tres partes de pro- 
gramacion de JUEGOS que form an 
este juego, veras como tambien se 
pueda escribir un programa mas sofis- 
ticado, a fin de que tu ordenador 
puede jugar contra ti el juego del Zo- 
rro y las Ocas. El programa tiene mu- 
chos niveles de habilidad, de modo 
que puedes hacer que el juego sea tan 
dificil o tan facil como quieras. 

El juego del Zorro y las Ocas ilustra 
muchos de los problcmas y principios 
que se incluyen a la hora de escribir 
uno de los mas interesantes y perdu- 
rabies programas de juegos: el aje- 
drez. La adquisicion de un programa 
de ajedrez comercial de tipo medio, 
ejecutable en un microorde- 
nador, vale la pena, a no ser 
que los jugadores posean un 
nivel muy alto en ajedrez, o 
conozcan bien las debilidades 
de los programa de ajedrez. 
No se puede escribir un 
programa de ajedrez que valga la pena 
en BASIC, pues el ordenador va a tar- 
dar un siglo en realizar cada movi- 
miento. En los niveles superiores del 
Zorro y las Ocas, observaras que el 
programa tarda mucho mas para de- 
cidir cada uno de sus movimientos 
— tal vez mas de media hora en los ni- 
veles superiores ejecutados en orde- 

148 INPUT auegos 



nadores mas lentos — . El programa 
aun seria mucho mas lento si, en lugar 
de este juego, intentases escribir un 
programa de ajedrez. 

Necesitamos un juego mas simple 
para mantener alejado nuestro jucgo- 
ejercicio del realismo del codigo ma- 
quina. El Zorro y las Ocas^nos viene 
de perlas porque posee muchas de las 
caracteristicas del ajedrez, e incluso se 
juega con el mismo tipo de tablero. 

Este articulo se divide en 3 partes. 

En esta primera estudiaras los prin- 
cipios que se encierran en un pro- 
grama de este tipo — y que se iran de- 
sarrollando en la segunda y tercera 
parte del articulo hasta configurar un 
juego completo — . Pero comencemos 
observando el juego en si mismo y 
todo lo que requiere el programa para 
que se pueda jugar con el. 



EL JUEGO 



El juego del Zorro y las Ocas se 
juega sobre los cuadros blancos de un 
tablero de ajedrez. Hay un zorro que 
empieza desdc una esquina del tablero 
y cuatro ocas que comienzan desde el 
lado opuesto. Un jugador controla al 
zorro y el otro a las cuatro ocas. El ob- 
jetivo del juego consiste en lo si- 
guiente: el zorro ha de pasar entre las 
ocas para llegar al otro lado del ta- 
blero, y la mision de las ocas consiste 
en rodear al zorro. 

Con cuatro contra uno, el juego 
puede parecer un poco injusto, pero 
resulta que los movimientos de las 
ocas estan iimitados a avanzar unica- 
mente hacia adelante, rmentras que el 




me) 



EXPLICANDO ELJUEGO 



ABORDANDO PROBLEMAS 



DE PROGRAMACION 



ARBOL DEINVESTIGACiON 
EJECUTANDQ EL PROGRAMA 



zorro se puede mover tan to hacia de- 
Ian te como hacia atras. El program a 
esta escrito de tal modo que e] orde- 
nador puede tomar el puesto tanto del 
zorro como de !as ocas, e incluso 
puede programarse para jugar contra 
Si mismo. 

ABORDAIMDO LOS PROBLEWIAS 

hi jucgo del Zorro y las Ocas es un 
pequeno ajedrez en el sentido de que 
no existe elemento de suerte en el 
juego: el resultado depende total- 
mente de la habilidad de los jugado 
res. Aunque en teoria, el ordena- 
dor podria ap render a jugar a base 
de probar y equivocarse, como un ju- 
gador humano, en el estado actual, 
este no cs el mejor camino para re- 
solver los problemas que plantea este 
juego ^y ademas, jel programa no ca- 
bria en tu microordenador...! 




Programar un juego como el del Zo- 
rro y las Ocas, o e! del ajedrez es real- 
mente un ejercicio de Tnteligencia 
Artificial. Para ofrecer un firme de- 
safi'o a un oponente humano, el or- 
denador debera ser capaz de jugar in- 
jeligentemente. Desgraciadamente la 
maquina no puede mirar al ta- 
blero y absorber una relacion do 
espacio entre las piezas, como tir 
haces. En su lugar, la posicion en 
el tablero se convlerte en valores 
nuniericos que el ordenador 
puede entender. 

Si quieres escribir un programa para 
que el ordenador juegue «inteligente- 
mente», deberas tener en cuenta pri- 
mero la naturaleza del juego. El tipo de 
juego dictaminara el tipo de programa. 
Tal vez exista un metodo mejor, to- 
talmente documentado, que puedas 
adaptar a tu ordenador. Otros candi- 
datos similares a este tipo de trata- 
miento serian cosas como: resolver un 
cubo Rubik, jugar al tres en raya, o las 
aperturas en ajedrez. En tales casos, 
tu trabajo se vera bastante simplifi- 
cado. Si existe un gran elemento de 
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suerte en el juego. es posible utilizar 
ia estrategia de un solo movimiento, 
en ia que el programa examina todas 
las posibiJidades abiertas que disenase 
para que elija entre el mejor niovi- 
miento. 

Los juegos Ludo y Monopoly po- 



Ello asegura que las ocas tiendan a 
permanecer en una linea recta — su 
configuracion mas fuerte — y el cuadro 
que llevara asignando el valor mas atto 
se va alternando entre el final iz- 
quierdo y derecho de la fila. 

Ademas de la sencilla evaluacion 
posicional, los cinco cuadros blancos 




delante del zorro tlenen un significado 
especial en el juego. Si observas la fi- 
gura 1, veras cinco cuadrados con las 
letras de A a E. 

Si solo hay una oca situada en cstos 
cuadros, o si hay dos ocas, y no estan 
en las posiciones A o B, gana el zorro: 
o bien, si hay tres y estas estan en las 
posiciones ACD, BDE, ACE o BCE, 
el zorro aun sigue ganando. 

Al comienzo de cada turno de 
juego, cuando el ordenador juegue, o 
bien a ser zorro o las ocas, el pro- 
grama salla a una subrutina que revisa 
la posicion (o configuracion) de todas 
las piezas y las convierte en un solo 
numero que utiliza el programa para 
decidir que movimiento realizar. Una 
vez tomada ia decision, el numero 
vuelve a convert) rse en una configu- 
racion. 

ARBOL DE INVESTIGACIOIM 

Los posiblcs movimientos de posi- 
cion sobre el tablero pueden ser re- 



dn'an ser candidatos preferibles de un 
solo movimiento. Juegos de este tipo 
requieren comparativamenie rutinas 
de decisiones simples. 

En los juegos en los que cntran po- 
cos o ningiin clcmcnto de azar, como 
el del Zorro y las Ocas, deberas utili- 
zar una estrategia de movimiento con- 
secutivo -— observando entre una serie 
de movimientos—, a fin de investigar 
las posibles salidas. 

El programa encuentra el movi- 
miento mas ventajoso desde cada po- 
sicion y lo realiza. 

EVALUAeiON DE LA POSICION 

A fin de permitir al ordenador de- 
cidir cual es el mejor movimiento den- 
tro de una categoria de posibiUdades, 
a cada cuadro del tablero se le asigna 
un valor numerico. En el Zorro y las 
Ocas, cuanto mas abajo se halte el zo- 
rro, tanto mejor para el, pues re- 
cucrda que este gana cuando llega al 
otro extreme del tablero. 

Las filas de casiUas estan numeradas 
alternativamente de izquierda a dere- 
cha y luego de derecha a izquierda, 
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presentados con una escritura en 
forma de arbol, cuyas ram as emanan 
de la posicion de las piezas (raiccs). 
Por ejemplo, desde la posicion en la 
figura 2, se podri'a trazar el primer ni- 
vel de! arbol en la figura 3. Si miras 
dos movimientos mas adelante el ar- 
bol sc vuelve mas complejo que en el 
segundo nivel — ten en cuenta que no 
siempre hay razon para que partan 
cuatro ramas de cada cuadro, ya que 
la pieza podria estar bloqueada por 
otra, o podria hallarse en el extremo 
del tablero. 




ACELERANDO EL PROGRAIVIA 

Con el numero de calculos a cj ecu- 
tar, el BASIC puede resultar muy 
lento, pero existen tres caminos para 
acelerar el programa. En primer lu- 
gar, puedes asegurarte de que el pro- 
grama no molesta para evaluar el pro- 
ximo movimicnto del adversario, en 
caso de que tu movimiento haya ga- 
nado la partida. En cualquier caso. 



ello solo ahorra tiempo al final, pero 
no durante la partida. 

En segundo lugar, se puede llegar 
muy frecuentemente a la misma con- 
figuracion desde muy diversas vias. Si 
este es e) caso, valdra la pena el es- 
fuerzo de construir una tabla de con- 
figuraciones comunes y de valores cal- 
culados asociados con ellos. Una tabla 
de este tipo detiene el programa vol- 
viendo a asignar cada vez la posicion 




individualmente, pero no hay duda en 
la conveniencia de grabar una confi- 
guracion que requiriese menos tiempo 
en ser evaluada que lo que se tardaria 
en encontrarla en la tabla. En teoria, 
la tabla solo puede ser utilizada 
cuando el programa ha avanzado tres 
pliegues (turnos completos de cada ju- 
gador) o mas. La practica del juego 
demuestra que no hay razon de regis- 
trar nada en la tabla hasta que se ha- 
yan avanzado, como minimo, cinco 
pliegues. 

En tercer lugar, se puede utilizar el 
denominado algoritmo alfa-beta. Este 
fue descubierto a principios de los 
anos sesenta por investigadores del 
campo de Inteligencia Artificial, y se 
emplea cada vez que el registro del ar- 
bol necesita examinar mas de un plie- 
gue de un arbol. 

Si observas la figura 3 podras ver la 
evaluacion de los posibles movimien- 
tos de una posicion del zorro. El pro- 
grama evaluara completamente la 
rama A y luego pasara a la rama B. Si 
en cualquiera de las fases de evalua- 
cion de B se detecta un resultado erro- 
neo, se rechazaran todos los movi- 
mientos en B. El mejor movimiento 
efectuado"^tiasta e"! momento queda re- 
gistrado en la memoria del programa 
y comparado con los resultados en 
cada rama en turno. Si se encuentra en 
un punto cualquiera un resultado erro- 
neo, ello provocara que toda la rama 
sea rechazada. 

El algoritmo alfa-beta, adquiere 
mayor importancia realmente a me- 
dida que aumcnta la complejidad del 
arbol. Si el arbol aumenta considera- 
blemente de tamafio, puede permi- 
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tirse descartar alrededor del 99,8 % 
de posibilidadcs a un nivel primario, 
con un ahorro similar dc tiempo. Pero 
en este jaego el arbol no se aproxi- 
mara a este nivel de complejidad. 

EJECUTANPO EL PROGRAMA 

Ahora que ya tienes algo de idea 
acerca de la teoria que alberga la es- 
critura del programa de un juego de 
estas caracteristicas, puedes pasar a la 
primera seccion del programa. Con- 
siste en trazar los graficos, aunquc no 
veras nada en este nivel. Si ejecutas el 
programa con RUN, no olvides gra- 
bario (SAVE) en un cassette que uti- 
lizaras en la proxima parte del pro- 
grama. 

Antes de utilizar el programa Com- 
modore deberas llevar hacia arriba el 
inicio del BASIC a fin de dejar espa- 
cio libre para el juego de graficos. Es- 
cribe: 

POKE 44,18 
POKE 256*18,0 
NEW 
cada vez antes de cargar el programa. 

1 IF PEEK(44)=8THENB0KE 
44,18:P0KE 255 * 18, 

0: PR I NT 'carga de nuevo el 
programa': NEW 

2 POKE 5328p,6:P0KE 53281, 
6PRINT '[SHIFT + CLR/ 
HOIVIE][CTRL+8]definiendo 
graficos.. .';GOSUB 4000 

4000 POKE 56334;0:POKE 1,35 
4010 FOR z=0 TO 1023:POKE 

2048 + z,PEEK(53248 + 

z):NEXTz 
4020 POKE 1,39:P0KE 56334,1 
4030 FOR Z-680TO 711:READ 

X:POKE 2048 + z,X:NEXTz 



4040 



FORZ-3329TO 
3334:P0KEz,129:NEXT 
z:P0KE.3328,255:P0KE 
335,255 .V 
RETURN '* 
5000 DATA 0,0,0,7,205,123,5 
0,15,12,20,31,152,248, 
216,48,224 
DATA 20,28,55,127,15, 
20,40,72,0,0,248,252,2 
50,40,20,20 



-J 




4050 



5010 



f=FN a(ABS(p)) - 31:b = p 

b{f):IF b<0THENb=b + 

bx:f-31 - f 

c=b/ b(28):F0R a-7 TO 

STEP - l:r$(a)-b$(INT (c), 

1 AND a):c-(c - INT (c)).* 

16:NEXTa " 

r$(f /4)-LEFT$(r$(f /4),FN 

c{f)) + f$(f /4 AND 1) + 

RIGHT${r$(f /4),1 2 - FN 

r{f)) 

PRINT '[SHIFT+CLR/ 

H0ME]';:F0R a-0 TO 

7:PRINTTAB(7); 

'[CTRL + 91[CTRL+5-[ 4 

espacios][CTRL-h0][CTRL + 

4]';s${a)'[CTRL + 9][CTRL + 

51[4espacios]' 

PRINT TAB(7); 

'[CTRL + 9[CTRL+5][4 

espacios][CTRL + 0][COIVI M . 



350 



+ l]';r$(a)'[CTRL + 9][CTRL 
+ 5][ 4 espacios]':NEXT 
a:PRINT 
'[CTRL+1]':RETURN 

Las lineas 310 a 350 muestran el ta- 
blero con las cinco piezas en posicion. 
La subrutina es llamada una vez a 
cada turno del zorro v las ocas. 
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LA LUNA 
A TUS PIES 



En este formidable juego vas a nece- 
sitar de toda la habilidad y sangre fria 
de que seas capaz para maniobrar el 
modulo lunar dc forma que pueda alu- 
nizar perfectaniente. 



l.a programacion de jucgos no tiene 
por que gencrar compiicadds pro gra- 
mas para producir un juego indcpen- 
diente y complete, Aqui te presenta- 
nios una versk)n del celebre programa 
Modulo lunar (Lunar lander) que con- 
tic ne graficos en alta rcsolucion y un 
control total sobrc el aparato. 

Id juego es complcto y muy variado 
scgun So pre sen tamos, pero ti'i ticncs 
la ptjsibilidad de adaptarto a tus pre- 
Cerencias personales. Por ejemplo, 
pucdc que Ic gustc ariadir una rutina 
del lipo «/,otro !n(enlo?>' para cvitar 
volver otra vez al I-(UN una vez que sc 
ha concktido el deseenso. O bicn 
puede tjue clesces allcrar ios graficos y 
los sonidos. 1 odo depe nde de th 



CONTROLES 



I, as teclas de cursor dcfccha y cur- 
sor izquJei'da, asf como la tecla de 
Commodore para <iiunizar. 



5 REM — — - INPUT 
COMMODORE 

6 REM 

10 H!RES1,0:MULT17,4, 

4:COLOUR7,0:POKE54296, 
15:P0KE54277,190:P0KE 
54278,248 
15 POKE 54278,248 
70 FOR Z-20TO 160 STEP 

20;Y = 

' 179-RND(1)*40:LINE 
Z-20,179,Z-I0,Y,3 

72 FOR 2Z-1 T0.3:PL0T RND 
(1)*160,RND(1)*15O,ZZ: 
NEXTZZ 

74 LlNEZ-10,Y,Za79,3:NEXT 
Z:PA1NT0,199,1:TEXT64, 
192,"[.SHlFT+N][SHiFT+L] 
[SHlFT + r«][SHIFT + IVl]",2, 
1,8 

76 LINE 0,199,159,199,2 



110 LX-RND(1)*248:LY-15 + 
RND{l)M0:XV-RND(l)n5 
-8:YY-0:F = 246 

115 GOSUB1040 

120 GOSUB1010:GOSUB2000: 
MULT17,RND(1)*2 + 4,RND 
(1)*8 + 1 

130 IF LY<192THEN 120 

140 IF LX<72 OR LX>88 OR 
YV>4THEN 160 

150 PRINT "[SHIFT + CLR/, 
H0ME][CTRL + 5][CRSR 
ABAJO][CRSRDCHA.][CTRL 
+ 9]FELICiDADES,HAS 
CONSEGUIDOATERRiZAR!" 

155 POKE 54276,33: FOR Z=l 
T0 255:P0KE 54273, 
A:POKE 54273, 255-Z: 
NEXTZ: GOTO 170 

160 PRINT "[SHIFT + CLR/ 

H0ME]:CENTRE"[CTRL + 5] 




r 
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JUEGO COMPLETO 



HABILIDAD Y DECISION 



GRAFICOS LUNARES 



VELOCIMETRO 



t 



CONTROL DEATERRIZAJE 



ADAPTAR EL PROGRAMA 



EFECTOSSONGROS 



DESASTRES 



PROGRAMASCON EXITO 



EL MODULO LUNAR 



CATASTROFiCO 
ATERRIZAJE":PGKE54276, 
129 
163 FORZ-iTO100:COLOUR7, 

RND{1)*2:P0KE54273,Z 
165 FOR ZZ = 1 TO 10: NEXT ZZ, 

Z 
170 POKE 54276, 0:NRM: POKE 

198,0:END 
1010 LX = LX + XV:LY-LY + YV: 
P0KE54276,17:S-255- 
(255ANDLY):P0KE54273, 
- S 
1020 IF LY<13 THEN RETURN 
1030 IF LX<0THEN LX=151 
1035 IF LX>151 THEN LX=0 
1040 TEXTLX,LY,"[SHIFT + X]'\ 

4,1,8:GOSUB3000 
1050 TEXTLX,LY,"[SHIFT + X]", 
4,L8:P0KE54276,16: 
RETURN 



2000 YV-YV+..5:IF LY<13 

THEN RETURN 
2010 GETK$:IFPEEK(653) = 2 

ANDF>3THENYV=YV-1:F 

-F-3:RETURN 
2020 IF K$ - 'TCRSR ABAJO]" 

THEN XV = XV - ,5: F= F 

- 1: RETURN 
2030 IFK$-"[CRSRDCHA.]" 

THENXV=XV+.5:F-F-1 . 



2040 


RETURN 


3000. 


TEXT 1,1, "GAS 




:" + STR$(F), 1,1,8 


3010 


V-2*YV:IFABS(V)>122 




THENV-122*SGN(V) 


3020 


TEXT75,1/'VELD:" + STR$ 




(V), 1,1,8 


3021 


TEXT41,1,STR$(F), 0,1,8 


3022 


TEXT123,1,STR$(V), 0,1,8 


3030 


RETURN 

■1 
* 




EL ORDENADOR 
A LA ESCUCHA 



Hasta ahora, el linico medio de que 
disponiamos para comunicarnos con el 
ordenador era el teclado o el joystick, 
pero utilizando el conversor analogico- 
digital del que dispone es posible que 
tambien nos obedezca a distancia. 

En concrcto utilizaremos la voz 
para comandarlo, ya que es la forma 
mas natural de comunicacion entre 
nosotros. For este motivo los medios 
de telecomunicacion habituales estan 
basados en la palabra; de esta forma, 
dos ordenadores que deseen comuni- 
carse a distancia deberan hacerlo «ha- 
blando». 

El problema principal es, por tanto, 
conseguir que el ordenador «oiga». 
De esto se encargara un economico 
dispositive electronico que actuara 
CO mo vox controller, es decir, contro- 
lador de voz. La unica mision de este 
circuito sera la de propbrcionar una 
senal al ordenador cuando mediante 
un microfono se capte un sonido de in- 



FIGURA 1 



R1 



I 



I 



tensidad adecuada. Aunque parezca 
algo simple, las aplicaciones que de el 
se derivan son numerosas. En el ar- 
ticulo se describen algunas interesan- 
tes, aunque tu puedes encontrar otras 
muchas. 



EL CIRGUITO 



En la figura 1 se represcnta el es- 
quema electronico del controlador de 
voz, de muy facil construccion. Puede 
verse que solo utiliza dos componen- 
tes activos con lo que resulta barato y 
fiable. 

El circuito consta de tres etapas. La 
primera de ellas esta formada por un 
transistor y su red de polarizacion 
(Rl, R2 y R3). Su mision es amplificar 
la debil seiial que proporciona el mi- 
crofono dinamico. La eieccion del mi- 
crofono no es critica, pudiendo incluso 
utilizarse un alt a voz convencional en 
lugar del mismo. 

La segunda etapa es un amplifica- 



dor de elevada ganancia formado por 
el primer operacional del LM 358, en 
configuracion no inversora. A la salida 
del mismo se obtiene una senal com- 
prendida entre y 5 V que se aplica a 
un filtro paso-bajo, formado por R6 y 
C4, cuya f unci on es eliminar las alt as 
frecucncias. 

La ultima etapa es un comparador 
que proporciona 5 V a la salida 
cuando la tension en la patilla 3 supera 
un cierto umbral fijado por R7 y R8. 
Se puede ajustar este umbral haciendo 
el dispositivo mas sensible bajando el 
valor de R8, aunque no excesiva- 
mente, ya que cualquier ruido lo dis- 
pararia. 

Los valores propuestos son los mas 
adecuados para que un debil sonido 
captado por el microfono active la sa- 
lida, sin que el ruido ambiental lo 
afecte. 

En la figura 2 se representan las co- 
nexiones del transistor, circuito inte- 
grado y conector a) ordenador. 



CI 

Microfono 
iiiOiL^ dinamico 





Salida 



7m 7m 77m 
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EL CONTROLADOR DE VOZ 

UN ALTO NUMERO 

DE APLICACIONES 

UTILIZACION 
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■ ELPROGRAMAEMISOR 


■ EL PROGRAMA RECEPTOR 


■ BARRA DE LEDS 


■ LISTADO DEL PROGRAMA 


■ OTRAS APLICACIONES 
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USO COMO MODEM TELEFONfCO 

Quiza sea esta la aplicacion mas in- 
teresante que hemos encontrado del 
circuito. Todos sabemos que la infor- 
macion que mane j a el ordenador es 
binaria, es decir, serial («1») o no se- 
na] («0»). Por lo tanto solo es nece- 
sario distinguir entre dos niveles, que 
es precisamente lo que hace el contro- 
lador de voz. Come la sensibiiidad del 
apafato es elevada, podemos utilizar 
la linea telefdnica, que proporciona 
poca intensidad sonora, para estable- 
cer la comunicacion. Podremos trans- 
mitir informacion de un ordenador a 
otro a traves del telefono. 

Es evidente que un ordenador debe 
funcionar como transmisor y el otro 
como receptor. Con el objeto de eco- 
nomizar, y sin que por alio la calidad 
se vea gravemente afectada, emplea- 
remos el altavoz del televisor como 
fuente emisora; el propio ordenador 
se encargara, con el chip de sonido, de 



Lista de componentes: 

Rl - 100 Kohm 

R2 = 150 Ohm 

R3 = 270 Ohm 

R4 = 390 Ohm 

R5 - 68 Kohm 

R6 = 10 Kohm 

R7 = 18 Kohm 

R8 = 3,9 Kohm 

R9 = 12Kohm 

RIO = 6,8 Kohm 

CI = 470 uF 

C2 = 470 ^iF 

C3 = 100 nF 

C4 - 27 nF 

Tl = BC 337 o similar 

ICl = LM 358 
Conexiones al ordenador: 

+5 Voltios a Pin 7 del 

port 1 de juegos 

Maso a Pin 8 

Salida a Pin 9 



generar la scnal sonora mediante un 
programa adecuado. Es en el receptor 
donde se utilizara el controlador, aco- 
plado al telefono. 

El programa desarrollado permitira 
transmitir caracteres en formato AS- 
CII, ya que de esta forma se pueden 
aprovechar una serie de subrutinas del 
sistema operative de los ordenadores 
y los programas quedan simplificados. 
Para que la transmision sea eficiente 
se precisan dos bits adicionales a los 
siete del codigo ASCII, que son el bit 
de inicio y el de parada. El primero se 
representa por un nivel logico 1 e in- 
dica al receptor que a continuacion se 
transmite un caracter. El bit de parada 
se representa por un y se envia al fi- 
nal de cada caracter para restablecer 
un nivel bajo en la linea. Esto es co- 
nocido tecnicamente como transmi- 
sion en serie asincrona, ya que los da- 
tos se transmilen bit tras bit y en cual- 
quier momento. 

En la figura 3 se representa como 
queda el tren binario al enviar el ca- 
racter «A». Puede apreciarse que el 
primer bit que se envia tras el bit de 
inicio es el correspondiente al bit de 
menos peso del codigo de la «A» (65). 

El problema con el cual nos encon- 
tramos es que el tren de bits no se 
puede transmitir tal cual por el tele- 
fono. Lo que debe hacerse es asignar 
una forma de onda a cada bit; lo mas 
sencillo es hacer corresponder un so- 
nido al valor «1», y ningun sonido al 
valor «0». Esto es lo que se conoce en 
el lenguaje de las telecomunicaciones 
con el nombre de modulacion por co- 
rrimiento de amplitud o ASK. El so- 
nido que se le asigne al «1» debe ser 
el adecuado para que se propague 
bien por el telefono, preparado solo 
para transmitir la voz. Por este motivo 
se elige un tono entre 1 y 2 KHz para 
la em is ion. 

Debido a que se trata de un modem 
experimental en el cual los costes se 



ban reducido al minimo, las velocida- 
des de transmision no pueden ser de- 
masiado elevadas. Las malas caracte- 
rfsticas del acoplamiento aciistico li- 
mitan la velocidad a 25 Bauds para 
una tasa de error no demasiado alta, 
es decir, se pueden transmitir tres ca- 
racteres cada segundo. Se podria au- 
mentar si no importa una mayor fre- 
cuencia de errores. La aplicacion ba- 
sica a la que puede ir destinado es la 
transmision de mensajes entre orde- 
nadores. Tambien es posible transmi- 
tir caracteres graficos para formar di- 
bujos, e incluso graficos en alta reso- 
lucion, con algunas modificaciones en 
los programas. Tambien es posible en- 
viar todos los caracteres de control 
(Return, Del, etc.), ya que tienen su 
correspondiente codigo ASCII. 

Los ordenadores deben estar con- 
trolados por dos programas distintos, 
uno encargado del emisor y otro del 
receptor. El programa del emisor 
tiene dos partes: una en BASIC y otra 
en codigo maquina. El programa en 
BASIC se encarga de pedir el mensaje 
a enviar (maximo 256 caracteres), 
convertirlo a codigo ASCII, guardarlo 
en memoria y poner en marcha el pro- 
grama emisor propiamente dicho. Si 
se desea enviar mensajes mas largos 
solo es necesario ejecutar varias veces 
este programa o modi fi carlo segiin las 
necesidades. 

El programa en codigo maquina 
puede ser cargado con la ayuda de un 
ensamblador o bien utilizando la ver- 
sion BASIC. Funciona. del siguiente 
modo: en primer lugar se ajustan los 
valorcs del chip de sonido para que 
emita un tono de unos 2 KHZ. A con- 
tinuacion se ajustan los contadores in- 
ternes para control ar de forma precisa 
la duracion de cada pulso o bit. Esta 
debe ser de 40 mihsegundos. Al trans- 
currir este intervalo de tiempo se ge- 
nera una interrupcion no enmascara- 
ble, que hace saltar el programa a una 



subrutina de servicio de interrupcion. 
Por eso se hace necesario modificar 
los punteros de la NMI de forma que 
apunten a una rutina propia ubicada 
en COAO. Tras hacer esto comienza la 
emision propiamente dicha. En pri- 
mer lugar se envia el bit de inicio para 
lo cual se pone el volumen al maximo 
durante 40 - ms. A continuacion se 
carga el acumulador con el caracter a 
transmitir y se va rotando para extraer 
los bits uno a uno. Si el bit extraido es 
un «1» se pone el volumen al maximo 
y si es un «0» se desactiva. El altavoz 
del televisor reproduce estas variacio- 
nes de forma mas o menos correcta. El 
proceso se itera tantas veces como es 
necesario para transmitir la totalidad 
del mensaje. Al acabar se ajustan las 
interrupciones a los valores iniciales y 
se devuelve el control al sistema ope- 
rativo. 

LiSTADO EN ENSAMBUVDOR DEL 
PROGRAM A EMISOR {C 64) 



C000: 

C002: 

C005: 

C007: 

C00A: 

C00C: 

C00F: 

C012: 

C014: 

C017: 

C019: 

C01C: 

C01E; 

C021: 

C024: 

e026: 

C029: 

C02B: 

C02E: 

C030: 

C033: 

C035: 

C038: 

C03A: 

C03D: 

C03F: 

C042: 

C045: 



IDA # $45 
STA $D401 
LDA # $F0 
STA $D406 
LDA # $00 
STA $D405 
STA $D402 
LDA + $04 
STA $D403 
LDA # $41 
STA $D404 
LDA * $4E 
STA $DD04 
STA $DD05 
LDA # $01 
STA $DD06 
LDA # $00 
STA $DD07 
LDA # $11 
STA $DD0E 
LDA * $51 
STA $DD0F 
LDA # $A0 
STA $0318 
LDA # $C0 
STA $0319 
LDA $DD0D 
LDA # $82 



G047: 
C04A 
C04C 
C04D 

C04E: 

C051 

C052 

C054 

C056 

C058 

C05A 

C05D 

C05F 

C061 

C063 

C065 

C068 

C06A 

C06C 

C06F 

C070 

C071 

C072 

C074 

C076 

C079 

C07B 

C07D 

C07F 

C080 

C082 

C084 

C087 

C089 

C08B 

C08D 

C08E 

C08F 

C090 

C091 

C093 

C095 

C098 

C0A0 

C0A3 

C0A5 

C0A7 

C0AA 

C0AB 



STA $DD0D 

LDX # $00 

TXA 

PHA 

LDA $C300,X 

PHA 

LDY + $FF 

CPY + $00 

BNE $C054 

LDA # $0F 

STA $D418 

LDY # $FF 

CPY # $00 

BNE $C05F 

LDA # $00 

STA $D418 

LDX # $07 

LDA # $00 

STA $D418 

PLA 

ROR 

PHA 

BCC $C079 

LDA # $0F 

STA $D418 

LDY * $FF 

CPY # $00 

BNE $C07B 

DEX 

BNE $C06A 

LDA # $00 

STA $D418 

LDY + $FF 

CPY # $00 

BNE $C089 

PLA 

PLA . 

TAX 

INX 

CPX * $00 

BNE $C04C 

JSR $FDA3 

RTS 

LDA $DD0D 

AND # $02 

BNE $C0AA 

JMP $FE56 

INY 

RTI 



La version en BASIC es la 

siguiente: 



1000 FOR I - 49152 TO 49304: 

READ A: POKE 1,A: NEXT 
1010 DATA 169,69,141,1,212, 
169,240,141,6,212,169, 
0,141,5,212,141,2,212, 
159,4 
1020 DATA 141,3,212,169,65, 
141,4,212,169,78,141,4, 
221,141,5,221,169,1, 
141,6 
1030 DATA 221,169,0,141,7, 
221,159,17,141,14,221, 
159,81,141,15,221,169, 
160,141 
1040 DATA 24,3,169,192,141, 
25,3,173,13,221,169, 
130,141,13,221,162,0, 
138,72,189 
1050 DATA 0,195,72,160,255, 
192,0,208,252,169,15, 
141,24,212,160,255, 
192,0,208 
1060 DATA 252,169,0,141,24, 
212,162,7,169,0,141,24, 
•212,104,106,72,144,5, 
169,15 
1070 DATA 141,24,212,160, 

255,192,0,208,252,202, 
208,232,169,0,141,24, 
212,160 
1080 DATA 255, 192, 0,208, 252,- 
104,104,170,232,224,0, 
208,183,32,163,253,96 
1090 FOR I - 49312 TO 49323: 

READ A: POKE I, A: NEXT 
1100 DATA 173,13,221,41,2, 

208,3,76,86,254,200,64 
2000 PRINT "MENSAJE"?: FOR I 
= 1 TO 1000: NEXT: L - 
0: PRINTXLR" 
2010 GET A$: IFA$-""THEN 

2010 
2020 L = L + 1 
2030 1FA$ - CHR$ (20) 

THENM$= LEFT$ (M$,L- 
2): L - L-2: PRINT" 
(CLR)": A$ = "" 
2040 IFA$- "(F1)"THEN2100 
2050 M$ = IVI$+A$: 

PRINT"{HOME)"l\/l$ 
2060 IFL-255THEN PRINT 
"ENVIO MENSAJE 
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":GOTO2100 

2070 GOTO2010 

2100 POKE 49298,1-1 

2110 FOR 1-1 TO L-1: 
POKE49920 + I-1, 
ASC(MID$[M$J,1]):NEXT 

2120 POKE 49920 + 1-1,0 

2130 SYS 49152 

2140 END 

Para aquellos que utilicen ensam- 
blador sc31o es necesario copiar a partir 
de la linea 2000. El programa pide el 
mensaje y lo va mostrando en panta- 
11a. Puede corregirse mediante la tecla 
DEL y para acabar debe oprimirsc Fl. 
Si e! mensaje contiene mas de 256 ca- 
racteres comienza la emision automa- 
ticamente y sera necesario hacer 
RUN2000 para continuar la emision 
del resto del mensaje. 

El programa receptor esta descrito 
en su totalidad en codigo maquina y 
para su ejecucion basta escribir SYS 
49408, una vez almacenado en me- 
moria mediante un ensamblador o el 
cargador BASIC. Tanto el programa 
emisor como el receptor pueden coe- 
xistir en memoria. De esta forma es 
posible establecer una comunicacion 
en Ids dos sentidos. El programa re- 
ceptor funciona del siguiente modo: 
inicialmente espera que el valor de la 
posicion 54297, que corresponde al 
conversor A/D, sea inferior a 129, lo 
que indica que se ha captado alguna 
serial. Para evitar que un posible ruido 
indeseado sea tornado como el bit de 
inicio se toman cuatro muestras mas 
en instantes posteriores. Si en todas 
ellas se ha detectado senal se consi- 
dera que el bit de inicio ha sido reci- 
bido; en caso contrario se vuelve al 
bucle de espera. Una vez detectado 
este se comienza a tomar muestras del 
tren de bits y se guardan en una tabla. 
For cada bit se toman 32 muestras, por 
lo que entre muestra y muestra se de- 
bera esperar 1,25 ms. De esto se en- 
carga el bucle ubicado entre CllA y 
CUE, Aqui no es necesario usar el ti- 
mer porque al tratarse de transmision 
asincrona, el bit de inicio desencadena 
todo el proceso. Una vez almacenados 
en la tabla todos los valorcs corres- 
pondientes a un caracter se procede a 



Figura 2 

TRT BC 337 (vista inferior) 




4 
1 1 


3 2 

r— 1 r — I 


1 

r 1 








LM358 


• 






L_,..J 

5 


6 7 


1 1 

8 




f O O O o / 

\ O O O / 
\ 7 8 9/ 


Port de juegos 















su identificacion. Para ello se evaliia el 
valor mas frecucnte de las 32 muestras 
de cada bit, protegiendose asi el sis- 
tema contra posibles errores. Una vez 
identificado el codigo ASCII se llama 
a la subrutina E716 que lo imprime en 
pantalla. Si el caracter detectado ha 
sido el 00, se interpreta que la trans- 
mision ha concluido y se devuelve el 
control al sistema operativo. El carac- 
ter 00 ya lo introduce automatica- 
mente el programa emisor. 

Para ejecutar una transmision de 
datos debe procederse del siguiente 
modo: 
— Cargar los programas adecuados 

en cada ordenador. 
— Enchufar el controlador de voz al 

receptor. 
— Situar el microfono del telcfono 
junto al altavoz del televisor se- 
leccionando un volumen medio 
para emitir. El receptor debera si- 
tuar el auricular del telefono 
junto al microfono del controla- 
dor. 
— ^Emitir un mensaje de prueba 
preestablecido, por ejemplo en- 
viando reiteradamente la misma 
letra. 
— Ajustar el volumen del televisor y 
la distancia hasta el telefono hasta 
conseguir una buena transmision. 
— Emitir el mensaje deseado. 
Con un buen ajuste se han conse- 
guido tasas de error del orden del 
1 %. Si esta tasa es considerada de- 



masiado alta, descendiendo la veloci- 
dad de transmision, puede rebajarse 
ostensiblemente. Se comprueba que el 
sistema es bastante insensible a los rui- 
dos propios del canal telefonico. 

La velocidad de transmision se es- 
tablece en las siguientes posiciones de 
memoria: 

— para el emisor: en CO ID, C025 y 
C02A. 

■ — para el receptor: en ClOA y 
CUB. 

Debe tenerse presente, que en cual- 
quier caso, las velocidades de emision 
y recepcion deben ser iguales. 

LISTADO EN ENSAIVIBLADOR DEL 
PROGRAMA RECEPTOR (C 64) 



C100: 


LDA$D419 


C103: 


CMP # $81 


C105: 


BPL$O100 


C107: 


LDX # $04 


C109: 


LDY # $9B 


C10B: 


NOP 


C10C: 


DEY 


C10D: 


BNE $C10B 


C10F: 


CLC 


C110: 


ADO $D419 


0113; 


BOS $0100 


0115: 


DEX 


0116: 


BNE $0109 


CH8: 


LDX # $00 


CllA: 


LDY # $99 


CllC: 


NOP 



l.*l 



INPUT 45 



CUD: 
CUE: 
C120: 

C123: 

C126: 
C127: 

C128: 
C129: 
C12B: 
C12D: 
C130: 
C133: 
C135: 
C137: 
C13A: 
C13C: 
C13E: 
C141: 
0144: 
C147: 
C148: 
C14A: 
C14D: 
C150: 
C151: 
C152: 
C153: 
C155: 
C158: 
C15B: 
C15D: 
C15E: 
C161: 
C164: 
C165: 
C167: 
C169: 
C16C: 
C16D: 
C16E: 
C16F: 
C170: 
C172: 
C174: 
C177: 
C17A: 



DEY 

BNE $C11C 

IDA $D419 

STA $C200,X 

I NX 

NOP 

NOP 

BNE$C11A 

LDA + $00 

STA $C300 

STA $C301 

LDX * $07 

LDY # $20 

LDA$C21C,Y 

CMP # $81 

BPL $C144 

INC $C300 

JMP $C147 

INC $C301 

DEY 

BNE $C137 

LDA $C300 

CMP $C301 

PLA 

ROR 

PHA 

LDA # $00 

STA $C300 

STA $C301 

LDA # $20 

CLC 

ADC $C138 

STA $C138 

DEX 

BNE $C135 

LDA # $1C 

STA$C138 

PLA 

CLC 

ROR 

PHA 

CMP # $00 

BEQ$C17A 

JSR $E716 

JMP $C100 

RTS 



La version en BASIC es la que si- 

gue: 

1200 FOR 1=49408 TO 49530: 
READ A: POKE I, A: NEXT 
1210 DATA 173,25,212,201, 



129,16,249,162,4,160, 

155,234,136,208,252, 

24,109,25,212 
1220 DATA 176,234,202,208, 

241,162,0,160,153,234, 

136,208,252,173,25, 

212,157,0 
1230 DATA 194,232,234,234, 

208,239,169,0,141,0, 

195,141,1,195,162,7, 

160,32,185 
1240 DATA 28,194,201,129,16, 

6,238,0,195,76,71,193, 

238,1,195,136,208,237, 

173,0 
1250 DATA 195,205,1,195,104, 

106,72,169,0,141,0,195, 

141,1,195,169,32,24, 

109,56 
1260 DATA 193,141,56,193, 

202,208,206,169,28, 

141,56,193,104,24,106, 

72,201,0,240 
1270 DATA 6,32,22,231,76,0, 

193,96 



BARRA DE LEDS 

Otra aplicacion intcrcsanle cs utili- 
zar el controlador de voz como medi- 
dor de intensidad sonora, a mode de 
«son6metro». Un ejemplo de ello es 
como medidor de la potencla musical 
de cualquier amplificador. El pro- 
grama desarroUado visuaiiza en la 
pantalla una doble barra de «leds», 
que se va iluminando al compas de la 
musica o de la voz, del mismo mode 
que en los equipos musicales de cali- 
dad. El programa Simula una columna 
doble de 20 LEDs, siendo los 5 ulti- 
mos de color rojo y los rcstantes de co- 
lor verde. En este caso debera ponerse 
el microfono cerca del altavoz de la 
fuente de sonido. 

El programa se presenta tambien en 
ensamblador y con un cargador en 
BASIC. Para activarlo sera necesario 
escribir la instruccion SYS 49152, y 
para detenerlo es necesario pulsar las 
teclas RUN/STOP y RESTORE. 

El programa comienza limpiando la 
pantalla y poniendola en negro. A 
continuacion se dibujan los LEDs, 



que vienen representados por el signo 
menos. Hecho esto comienza la eje- 
cucion del programa principal, que se 
encarga de leer 20 veces el registro del 
conversor A/D y encender los LEDs 
en funcion de los datos leidos. 

Si la intensidad sonora es dema- 
siado fuerte la barra de LEDs marca 
siempre el valor maximo. En este caso 
es necesario separar el microfono a 
una distaneia conveniente para que las 
barras sigan correctamente la musica. 

Existe la posibilidad de realizar un 
medidor para equipos estereofonicos 
mediante dos controladores, uno para 
cada canal, y conectando el segundo al 
PIN 5, correspondiente a la entrada 
POT Y (posicion 54298). El programa 
debe sufrir algunas modificaciones 
sencillas para este modo de funciona- 
miento. 



,:p_ ■■■:■ ■ 

PROGRAMA uBARRA DE LEDS» 


EN ENSAMBLADOR 


C000-. JSR $E544 | 


C003 


LDA # $2D 


C005 


LDX # $14 


C007 


STA $0400,X . 


C00A 


STA $0450, X 


C00D 


: DEX 


C00E 


BNE$C007 


C010 


LDA # $00 


C012 


STA $D020 


C015 


STA $D021 


C018 


LDX # $14 


C01A 


TXA 


C01B 


: PHA 


C01C 


LDX # $02 


C01E 


LDY # $A0 


C020 


DEY 


C021 


BNE$C020 


C023 


DEX 


C024 


BNE$C01E 


C026 


PLA 


C027 


TAX 


C028 


LDA$D419 


C02B 


: CMP * $81 


C02D 


: BPL $C032 


C02F: 


INC $C100 


C032 


DEX 


C033 


BNE $C01A 


C035 


LDX$C100 


C038 


LDY * $14 
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C03A: 


IDA + $00 


C03C: 


STA $D800,Y 


C03F: 


STA $D850,Y 


C042: 


DEY 


C043: 


BNE $C03C 


C045: 


IDA # $02 


C047: 


CPX # $0D 


C049: 


BMl $C055 


C04B: 


STA $D800,X 


C04E: 


STA $D850,X 


C051: 


DEX 


C052: 


JMP $C047 


C055: 


IDA # $05 


C057: 


STA $D800,X 


C05A: STA $D850,X 


C05D: 


DEX 


C05E: 


BNE $C057 


C060: 


IDA # $01 


C062: 


STA $C100 


C065: 


JMP $C018 



La version BASIC es la siguiente: 



H 



20 



30 



40 



FOR 1=49152 TO 49255: 

READ A: POKE I, A: NEXT 

DATA 32,68,229,169,45, 

162,20,157,0,4,157,80,4, 

202,208,247,169,0,141,32, 

208 

DATA 141,33,208,162,20, 

138,72,162,2,160,160,136, 

208,253,202,208,248,104, 

170 

DATA 143,25,212,201,129, 

16,3,238,0,193,202,208, 



229,174,0,193,160,20,169, 


50 DATA 153,0,216,153,80, 

216,136,208,247,169,2, 

224,12,48,10,157,0,216, 

157,80 

60 DATA 216,202,76,71,192, 
169,5,157,0,216,157,80, 
216,202,208,247,169,1, 
141,0 

70 DATA 193,76,24,192 

80 SYS 49152 



OTRAS APLICACIONES 

Existe todavia otro grupo de impor- 
tantes aplicaciones para el controla- 
dor: es el control de programas me- 
diante la voz. Es posible gobernar un 
program a realizado adecuadamente 
pronunciando cualquier sonido ante el 
microfono. Puede ser interesante este 
modo de control de programas para 
aquellas aplicaciones en las que, por el 
motive que sea, no es posible mani- 
pular un teclado (ejemplo en progra- 
mas educativos en ninos de corta 
edad) . 

El metodo de programacion consls- 
tira en crear un menu rotativo que 
vaya presentando las diferentes opcio- 
nes o respuestas posibles en pantalla 
de forma secuencial. Al Uegar a la ele- 
gida bastara con emitir un sonido o 
una palabra cualquiera para que el or- 
denador reconozca la opcion deseada. 



El programa siguiente cs un ejem- 
plo de aplicacion de esta tecnica. En 
este case se elige el color de la pan- 
talla, pero evidentemente la misma es- 
tructura puede utilizarse para ejecutar 
cualquier otra tarea. 

5 A=l 
10 PRINT"(CLR)" 
20 PRmT"AMARILLO^ 

PRINT 
30 PRINr'ROJO": 

PRINT 
40 PRINr'VERDE": 

PRINT 
50 PRINr'NEGRO" 
60 B=0:ON A GOTO 70, 80, 

90, 100 
70 PRINT"(HOME)":PRINT"(RVS 

ON)AMARILLO":GOSUB150:A 
. -2:GOTO110 
80 PRINT"{H0ME)(3CRSDWN) 

(RVSON)ROJO":GOSUB 

150:A=3:GOTO110 
90 PRINT"(H0[V1E)(5CRSDWN) 

(RVSON)VERDE":GOSUB 

150:A-4:GOTO110 
100 PRINT"{H0ME)(7CRSDWN) 

(RVSON)NEGRO":GOSUB 

150:A=1 

110 IFBO0THENONBGOSUB 

200,210,220,230 
120 GOTO10 
150 FORI = 1TO200:C = PEEK 

(54297):IFC<128 
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THEN1-200:B=A 
160 NEXT:RETURN 
200 POKE 53280, 7: POKE 

53281, 7:RETURN 
210 POKE 53280, 2: POKE 

53281, 2:RETURN 
220 POKE 53280, 5: POKE 

53281, 5:RETURN 
230 POKE 53280, 0; POKE 
53281, 0:RETURN 
Y todavia pueden encontrarse otras 
muchas aplicaciones. Damos a conti- 
nuacion una serie de ejemplos: 
— Ninera electronica: es posible po- 
ner el microfono del controlador 
en el cuarto de un bebe de forma 
que cuando este llore el Com- 
modore nos avise y le toque una 
cancion de cuna. 
— Control de intrusos: cuando se 
detecte ruido en una habitacion 
es posible utilizando el port del 
usuario conectar cualquier tipo de 



alarma o en una apHcacion mas 
sofisticada Uamar a la policia y 
poner en march a una gr abaci on 
de forma automatica. 
-Registro de Uamadas telefonicas: 
Situando el microfono cerca del 
telefono es posible registrar el nu- 
mero de Uamadas y la hora en que 
fueron efectuadas. 



-Encendido y apagado de apara- 
tos: Cualquier aparato puede ser 
conectado mediante un rele al 
port del usuario y ser conectado y 
desconectado mediante, por 
ejemplo, una palmada. La alta 
sensibilidad del dispositivo per- 
mite captarla desde varios metros 
de distancia. 



...TECREES 

MUY VALIENTE? 

491) nS 72 63 



'Cos^csxx^^x^^^x^x^^^x^^^^^^x^N^x^^^^xv^xv^^ 



Suscrfbase ahora a 




PRECIO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento al suscriptor Ptas, 75 

USTED PAG A SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION. 
(un curso complete de programacion)... 



cammadore 



oAdedesc^ 







svi 




...LA POSIBJLIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



■;_Este siempte al m - 



Recorte y envie este cupon 
de intnediato a EDISA, Lopez de Hoyos, 
28002 Madrid, o bien llamenos 
alTelf. (91) 415 97 12 



141 



/>nvocvvsxxxxvvxxxvovxv\xsxsn:vcsx 



INPUT 



BOLETIN DE SUSCRIPCION 



SI, envieme INPUT COMODORE durante 1 afio (12 ejempiares) . bJ precio especial de ofetta de 3.600 Ptas. AHORRANDOME / 
900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos. (Por favor, cumplimente este boletTn con sus datos personal es e ^ 
indfquenos con una (X) la forma de pago por usted elegida, metalo en un sobre y deposftelo en el biiz6n rii^s prfiximo). 



J 1 I 1_J I 1 I I I I I L_ 



_l .APaiEXJS !_ 



_i 1 I I I 1 I 1_ 



DOMICIUO L. 
POBLACION L_ 



J L I 1_ 



_l 1 I tKM I i I I FSO 



pRonrraA I I I I l I l i l i J I t L 



J COD. POSTAL l_ 
J TELF I I I I 



PROFESLON I i _L_ 



FORMA DE PAGO ELEGIDA: Reamtmls 



.n 



E>cm)d[jac!6n Ban 



D 



Muy senores mios: 

Les ruego que, con cargo a mi cuenta n." 

Editorial PLANETA-AGOSTINI a nombre de: 

I I I \ I I I 6ANC0/C dt AHORROS 



J I I I I t L 



J I I i J I ^ 

.de 19__ 5j 

atiendan, hasta nuevo aviso, el pago de los recibos que les presentarS v 

J ! 1 1 I 1 I 1 l__l I I I I I I I I I I I 1 I I — I — I / 

_1 I I I [ I I I I I LJ.. I_L_ 1 I I L I il _,l I 1 I — \—l y 

_I I 1 I i I I I I 1 I 1 I I I I l_U — I — J — I — I — i — 1 — I — I / 

FIR MA y 



TalSn nomlnativo que adjunto e fevor ce EDISA l_l 

INSTRUCCIONES DE DOMiCILlACiON BANCARIA (si es elegida por usted) 



de. 
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En INPUT estamos convencidos de que aun 

puedes hacer muchas mas cosas con tu 

ordenador. Sin duda. nnuchos lectores estareis 

utilizando vuestro nnicro para funciones de lo nnas 

vanadas, en unos casos; pintorescas, en otros; 

nnientras que algunos listillos habran podido 

utilizarlo para resolver tareas complejas. Es logico, 

modificando progrannas y variando los perifericos 

nuestro ordenador puede prestar sus servicios en 

infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 

dedicar tu ordenador, sean conocidas por todos 

sus lectores y por eso ha organizado el «Concurso 

de Aplicaciones y Utilidades», en el que puede 

participar cualquiera de nuestros lectores. 






UTILIDADES Y APLICACIONES: Si tu orde- 
nador controla la calefaccjon de tu casa, gobierna 
un robot, dirige un pequeno negocio, organiza la 
maqueta de tu tren electrico, o cualquier cosa in- 
teresante u original ; envianos informacion grafica y 
listados de tus programas, grabados en un cassette, 
diskette o microdrive. 

Todo ello habra de venir acompanado por un 
texto que aclare cual es su objetivo, el modo de fun- 
cionamiento y una explicacion del cometido que 
cumplen las distintas rutinas que lo componen. El 
texto se presentara en papel de tamano folio y me- 
canografiado a dos espacios. No importa que la re- 
daccion no sea muy clara y cuidada; nuestro equipo 
de expertos se encargara de proporcionarle la forma 
mas atractiva posible. 

UN JURADO propio decidira en cada momento 
que colaboraciones reiinen los requisites adecuados 
para su publicacion, y evaluara la cuantia del pre- 
mio en raetalico al que se hagan acreedoras. 

No olvideis indicar claramente para que ordena- 
dor esta preparado el material, asi como vuestro 



nombre y direccion y, cuando sea posible, un tele- 
fono de contacto. Entre todos los trabajos recibidos 
durante los proximos tres meses SORTEARE- 
MOS; 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en material microinformatico a elegir por 
los afortunados. 

jNo OS desanimeis!, por muy simples o complejas 
que puedan parecer vuestras ideas, todas estan re- 
visadas con el maximo interes. 

INPUT COMMODORE 

Aribau, 185. Planta 1.' 
08021 BARCELONA 



NOTA: INPUT no se responsabiliza de la devolucion del ma- 
terial que no vaya acompanado por un sobre adecuado con el 
.franqueo corrcspondiente. 
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AZARY 
PROBABIUDAD 



Tanto si estas interesado en estrate- 
gias de juego como en predecir situacio- 
nes de vida o de muerte, no puedes es- 
perarlo todo del azar.Analiza mas bien 
como puedes obtener informacion sobre 
el futuro, ;y gana! 

La fuerza de un ordenador reside en 
su capacidad para obedecer instruccio- 
nes de una forma repetitiva, precisa y 
rapida. Si lo comparamos con el pro- 
ceso casi instantaneo del cerebro hu- 
mano, la actuacion de un ordenador 
es, desde luego, insignificante. El ce- 
rebro humano es unico para hacer jui- 
cios y comparaciones de parametros 
como la distancia, la velocidad o la in- 
tensidad de la luz. 

Pero tambien estas funciones mas 
sutiles fallan estrepitosamente caando 
tratan de adivinar el resultado de un 
suceso. Y, sin embargo, es importante 
poder afirraar con seguridad que «a 
efectos de un seguro, se considera que 
una persona Uega a vivir hasta los 65 
o los 70 anos», o bien que «no es pro- 
bable que se de un terremoto de gran 
alcance en Espana en lo que queda de 
siglo». Tales afirmaciones son nor- 
males en el lenguaje de la vida diaria 



(ponderamos el riesgo) y son tambien 
importantes para fines cientificos, so- 
ciales o comerciales. Cuando utiliza- 
mos terminos como riesgo, pronostico, 
duda, esperanza y posibilidad estamos 
haciendo calculos mentales de proba- 
bilidades. 



LA PROBABIUDAD TAL COMO ES 



La probabilidad es la medida cien- 
tifica del azar, y se emplea para juzgar 
el posible resultado de un suceso. Se 
basa en la existencia de un numero fi- 
nito de resultados posibles, como pue- 
den darse en los partidos de fdtbol. el 
lanzamiento de una moneda, tirada de 
dados, reparto de cartas de baraja o el 
juego de las maquinas de frutas. Es 
claro que podcmos medir o cuantificar 
los resultados, de forma que sucesos 
como las carreras de cab alios o una 
competicion de baloncesto constitu- 
yen la materia diffcil de la probabili- 
dad. Si tii dices «Espero ganar», lo que 
estas dicicndo es que existe una ele- 
vada probabilidad de que te sonria la 
suerte. 

Muchos se fian solo de la intuicion. 
y esta es su principal herramienta de 





calculo de probabilidades. Pronosti- 
can, y basta. Pero tu puedes hacerte 
una idea mas precisa de ciertas situa- 
ciones en las que interviene el azar si 
te detienes a examinar cuales son los 
sucesos posibles. y aunque nunca ten- 
dras la certeza absoluta estaras en me- 
jores condiciones que el que emite su 
pronostico poco o nada documentado 
sobre el tema. 



PROBABILI0AD E INFORMATICA 



^Y que tienen en comun la proba- 
bilidad y la informatica? Pues, ha- 
blando en castizo, la lira. Aunque el 
tipo de probabilidad antes mencio- 
nada es bastante amplia y depende de 
muchos factores, es posible deducir 
reglas matematicas para ciertos tipos 
de sucesos que nos permitan predecir 
el resultado mas verosimil con un 
cierto mar gen de seguridad. 

Los ordenadores pueden ser utiles 
por dos vertientes. Por un lado, pue- 
den utilizarse para simular el resultado 
mismo; es mucho mas facil programar 
un ordenador para que te tire un dado 
dos mil veces que hacerlo tu con tu 
propia mano. Por otro lado, si sabes 
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^EES PROBABILIDAD? 



PROBABILIDAD 



AZAR, PROBABILIDAD 



las formulas del resultado esperado, 
puedes emplear el ordenador para que 
te calcule tambien el resultado. 

Segun sean tus intereses, esto puede 
reducirse a un mero ejercicio teorico, 
o convertirse en la base de muchas 
aplicaciones practicas. Considera solo 
el mundo de los juegos de azar, en los 
que, por ejemplo, tu apuesta depende 
de la verosimilitUd de determinados 
resultados. Pero tambien se podria es- 
cribir un programa para determinar la 
probabilidad de que llueva en un dia 
determinado (jo la probabilidad de 
que acontezca una erupcion volcanica 
en la peninsula!). De memento cina- 
monos a la teoria. Mas adelante IN- 
PUT te ensenara a montar algunas de 
esas aplicaciones practicas. 
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La teoria de la medicion de la pro- 
babilidad pide que conozcas dc ante- 
mano el ntimero de sucesos posibles 
de un determinado experimento, y la 
frecuencia con que suele ocurrir cada 
uno de ellos. La probabilidad dc que 
ocurra un determinado suceso es igual 
al numero de veces que suele suceder 
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(su frecuencia) partido por el numero 
total de sucesos posibles. 

Si un suceso es seguro que ocurrira, 
su probabilidad sera, segun lo dicho, 
igual a L Esta claro que si siempre 
ocurre, su frecuencia es igual al nu- 
mero de resultados posibles, es decir, 
dividimos un numero por si raismo, 
luego es igual a 1. Conclusion: la pro- 
babilidad mas alta de un suceso vale 
1. Y para muchos sucesos posibles e 
independientes, si sumamos sus res- 
pectivas probabilidades nos dara tam- 
bien L 

Uno de los metodos mas sencillos y 
antiguos de razonamiento probabilis- 
tico consistia en lanzar una moneda al 
aire y predecir su resultado. Dado que 
una moneda solo ofrece dos resulta- 
dos, intuitivamente podemos deducir 
que si la lanzamos al aire un buen nu- 
mero de veces, obtendremos cara la 
mitad de las veces y cruz la otra mitad, 
dando por despreciable la bajisima 
probabilidad de que la moneda se 
quede de canto. Para ilustrar este me- 
todo, introduce y ejecuta este primer 
programa. 

Necesitas el cartucho BASIC de Si- 
mon para tu Commodore 64. 



10 



PRINT "[SHIFT+CLR/ 

H0ME][CTRL+7]ENTRAR 

OPCION (1-4)" 
20 POKE 53280, 3:P0KE 

53281, 1 
30 INPUT X:PRINT "SHIFT+CLR/ 

H0ME]":IFX<1 OR X>4 

THEN10 
40 ON XGOTO 70; 70, 180; 460 
50 REM.. ..PROBABILIDAD 
60 REM......LANZAMiENTO DE 

UNA MONEDA 
70 H=0;T=0 
80 PRINT "[CLR/HOMEKCTRL 

+ 9[ PULSA-ESPACIO- PARA 

LANZAR LA MONEDA. " 
90 PRINT "[CLR/HOME][ 

4*CRSR ABAJOJCARA :- 0" 

:PRINT "CRUZ :-0" 
100 GETA$:IFA$<>" " 

THEN100 
110 IFX=2 THENFOR N-1 TO 

100 
120 IF INT (RND(1)*2)+1-1 

THENH = H + 1:PRINT "[CLR/ 
HOME][ 2*CRSR 
ABAJ0][CTRL+9]CARA 



GOTO 130 
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125 



130 



140 

150 
160 



T=T+1: PRINT "[CLR/ 
HOME][ 2*CRSR 
ABAJ0][CTRL+9]CRUZ " 
PRINT "[CLR/HOME][ 
4*CRSR ABAJO]"; TAB(7); 
H:PRINTTAB{7); T 
IFX-1 THENGET A$:1F 
A$<l>" " THEN130 
IFX-1 THEN120 
NEXT N:END 



Este progranna sera desarrollado a 
lo largo del articulo. Cuando lo eje- 
cutes (RUN) tendras que introducir 
un numero para seleccionar una 
prueba. En este momento solo has en- 
trado la primera de las pruebas, luego 
escribe un 1; estas ahora en condicio- 
nes de lanzar la moneda apretando la 
barra espaciadora o SPACE. La esen- 
cia del programa esta en la linea 120 
que proporciona unos (caras) y ceros 
(cruces) al azar. Cuando sale cara, la 
linea 120 imprime cara, y cuando sale 
cruz la linea 125 imprime (PRINT) 
cruz. Esta misma linea tiene un con- 
tador del numero de caras y cruces 
que van saliendo en los distintos lan- 
zamientos. 

Con un numero escaso de lanza- 
mientos obtendremos valores muy dis- 
tintos de cara y de cruz, pero si au- 
mentamos estos veremos como tales 
valores se van aproximando cada vez 
mas, hasta distribuirse por igual la mi- 
tad de los lanzamientos: o sea, el 50 % 



de las veces salio cara y el 50 %, cruz. 
Compruebalo ejecutando el programa 
despues de haber entrado el 2, para 
seleccionar la segunda prueba. Esta 
vez, cuando aprietes la barra o 
SPACE, la linea 110 establece un bu- 
cle con el que se lanzara 100 veces la 
moneda. Veras que en pantalla sale 
para CARA y para CRUZ un niimero 
muy proximo a 50. Si quieres, cambia 
el 100 de la linea 110 por el 1000 y 
vuelve a ejecutar el programa, intro- 
duciendo como antes el numero 2 para 
que repita la segunda prueba. Resul- 
tado: CARA y CRUZ reciben casi 500 
por igual. 

Desde luego, es posible obtener 
cara en todos los lanzamientos, nadie 
puede negar esto, pero es probable 
obtener cara solo en la mitad de di- 
chos lanzamientos. Anotate esto bien 
cuando examines mas de un experi- 
mento. Mucha gentc cree que si se- 
guimos lanzando una moneda despues 
de haber obtenido diez caras, es ma- 
yor la probabilidad de obtener cruz 
ahora que al principio. Pero esto no es 
verdad. Los sucesos pasados no influ- 
yen sobre el suceso futuro de obtener 
una cruz o una cara en el siguiente lan- 
zamiento. Pero si vas a lanzar 11 mo- 
nedas de golpe, deberas saber que la 
probabilidad de obtener 11 caras es 
mas pequeiia que la de obtener diez 
caras y una cruz, y es todavia mas pro- 
bable que obtengas un niimero casi 
igual de caras que de cruces. 




EXPERIMENTOS MULTIPLES I 

Cuando existen varios experimen- 
tos, es necesaria alguna informacion 
mas para poder predecir la probabili- 
dad de cada suceso. Un dato infor- 
mativo esencial es el total de todos los 
sucesos posibles. Por ejemplo, si lan- 
zas dos veces una moneda, tres son los 
sucesos posibles: dos caras, cara y 
cruz, dos cruces. Podemos pensar que 
cada uno de estos sucesos puede ocu- 
rrir la tercera parte de las veces. De 
hecho, las probabilidades son: dos ca- 
ras (1/4), dos cruces (1/4) y cara y cruz 
(1/2). Para entender esta ultima pro- 
babilidad de 1/2 deberas utilizar otra 
informacion mas: el numero de ocu- 
rrencias de cada suceso. Cara y cruz 
ocurre dos veces, ya que hay dos ma- 
neras de obtener este resultado (cara 
y cruz, o bien cruz y cara) con lo que 
tenemos un total de cuatro sucesos, de 
los cuales tres son distintos. 

En la practica, hay dos trucos ma- 
tematicos que te ahorran el esfuerzo 
de determinar el numero de sucesos. 
Son el teorema del binomio y el tridn- 
gulo de Pascal. Binomio significa «de 
dos terminos». Si un experimento solo 
tiene dos sucesos posibles y conoces la 
probabilidad de cada uno de el los, nos 
serviremos del teorema del binomio 
para obtener las probabilidades. 

El teorema del binomio nos indica 
lo que se debe esperar dc las pruebas 
que se repiten de un experimento con 
dos sucesos. Llamemos P la probabi- 
lidad de un resultado y Q la del otro 
resultado (nota que P -I- Q vale 1, 
como ya sabes). Y llamemos, por ul- 
timo, N al numero de sucesos. 

En el ejemplo de lanzar una mo- 
neda, P es la probabilidad de que saiga 
cara. y Q de que saiga cruz. Entonces, 
para un lanzamiento, P y Q valen 1/2. 
Segiin el teorema del binomio, la pro- 
babilidad en un experimento que se da 
dos veces. es la probabilidad cuando el 
experimento solo se da una vez mul- 
tiplicada por si misma. En general , la 
regla dice que la probabilidad hay que 
elevarla a N. Asi para dos caras en dos 
lanzamientos tendremos P f N = 1/2* 
1/2 = 1/4. Hay una posibilidad sobre 
cuatro de obtener dos caras a la vez. 
Igualmente, ia probabilidad de obte- 
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ner cinco caras a la vez, sera P | N, o 
sea 1/2-^5, es decir, 1/32. 

Como veras mas adelante, este me- 
todo se puede emplear para calcular la 
probabiiidad de cualquier suceso 
cuando solo cxisten dos resultados po- 
sibles, los sucesos si/no o bien cara/ 
cruz. Pero ^y e) caso de obtener tres 
caras y dos cruces despues de cinco 
lanzamj antes de una sola moneda? 
Para respondcr a esto necesitamos un 
planteamiento mas complejo. 

El triangulo de numeros, ideado por 
el matematico frances Bias Pascal, 
sirve en muchas aplicaciones raate- 
maticas, y entre ellas la que nos 
ocupa. Ofrece todos los resultados po- 
sibles de cualquier experimento con 
dos resultados, y puede ser dispuesto 
como una sucesion de filas de nume- 
ros. Las primeras siete filas son: 



Fila 




1 


Fila 1 




1 1 


Fila 2 




1 2 1 


Fila 3 




13 3 1 


Fila 4 




14 6 4 1 


Fila 5 




1 5 10 10 5 1 


Fila 6 


1 


6 15 20 15 6 



1 



Para construir un triangulo como 
cste, escribe primero las dos primeras 
filas (fila y fila 1), que son faciles dc 
recordar. La fila 2 comienza con un 1 
a la izquierda y acaba con otro 1 a la 
derecha de la fila 1. El numero del me- 
dio (2) se obtienc sumando los nu- 
meros de la fila anterior (1 + 1). 
Igualmente, la fila 3 se obtiene colo- 
cando sendos unos a la derecha y a la 
izquierda, y los restantes numeros son 
la suma de los numeros dc la fila an- 
terior (fila 2): 1 + 2 y 2 + 1. Asi se 
han obtenido las demas filas, como la 
fila 6:1 — 1 + 5 — 5 + 10 — 10 + 10 
— 10 + 5 — 5 -^ 1 — L Y asi podrias 
enriquecer este triangulo con todas las 
filas que desees, aunque el triangulo te 
ocupara entonces mucho espacio. 

El triangulo de Pascal (tambien Ila- 
mado de Tarlaglia), te ofrece la infor- 
macion que necesitas, cuando se trata 
del lanzamiento de varias monedas al 
mismo tiempo (o de una moneda que 
se lanza varias veces). El numero de 
monedas nos dice la fila que hay que 
mspeccionar; el numero de elementos 




de esa fila indica el numero de resul- 
tados. Por ejcmplo, solo hay dos re- 
sultados para una sola moneda (fila 1: 
el 1 y el 1 ) y siete resultados posibles 
para seis monedas (fila 6: 1, 6, 15, 20, 
15, 6 y 1). La suma de los numeros de 
la fila proporciona el numero total de 
resultados (2 para una moneda, 4 para 
dos monedas, etc.). Cada numero de 
la fila es una probabiiidad. Por ejem- 
plo, en la fila 2, el primer numero (1) 
es la probabiiidad de obtener dos ca- 
ras, el segundo numero (2) es la de 
cara y cruz, y el tercer niimero (1) cs 
la de dos cruces. Naturalmente estos 
numeros nos dan la frecuencia que hay 
que dividir por el numero total de re- 
sultados posibles (en nuestro caso, 
cuatro) si queremos hallar la proba- 
biiidad propiamente dicha. Observa 
como el resultado de sumar los nu- 



meros de cada fila da siempre una po- 
tencia del dos (1, 2, 4, 8, 16). Esto se 
explica porque, para cualquier expe- 
rimento, solo existen dos sucesos po- 
sibles. 

Ya puedes ir percatandote de lo util 
que resulta este metodo cuando se 
trata de calcular las probabilidades re- 
sultan tes de lanzar, por ejemplo, 30 
monedas al aire, pero seria algo abu- 
rrido intentar resolverlo mediante la 
construccion de un triangulo de 30 fi- 
las, aparte del espacio que esto te iba 
a ocupar. Existe, en su lugar, un me- 
todo grafico que nos permite encarar 
tales casos, y aqui es donde puedes ha- 
cer intervenir a tu ordenador. 
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CURVAS DE DISTRIBUCION 

I-jndo existen muchos sucesos, y 
s^probabilidades no parecen tan evi- 
dentes. a menudo pueden obtenerse 
bwenos resultados mediante el trazado 
de una curva de distribucion. Esta se 
traza mediante la frecuencia de los su- 
cesos que sc tengan tabulados: es la 
distribucion de frecuencias. Como su- 
cede con todo metodo grafico, de un 
vistazo puede obtenerse la mayor 
parte de la informacion necesaria. Si, 
por ejemplo, vas a jugar al lanza- 
miento de una moneda 30 vcces (que 
es lo mismo que lanzar 30 monedas de 
una sola vez) , pnedes visualizar el nu- 
mero de caras (o cruces) que salen en 
cada juego de 30 lanzamientos. Para 
ver el resultado, escribe la siguiente 
seccion del programa, sin borrar la an- 
terior seccion: 

170 REM......MAXIMOS 

ALEATORIOS 
180 HIRES 0,1:FORX=0TO 

300 STEP20 
190 GM-0:GOSUB 610 
200 FOR Y = TO H*6 

STEP6 
210 TEXTX, 200-Y, "*", 1, 

1,8 
220 NEXTY, X 
230 GOTO 230 
610 REM..:..LANZAMIENTO 
620 H-0:T=0 
630 TEXT 200,10,"CARA:",1, 

1,8 



632 TEXT 200,20, "CRUZ :",!, 
1,8 

640 IFGMO0THENTEXT 0,0, 
"JUEG0S:",1,1,8:TEXT 
100, 0, "CARAS DE30 






JUEGOS:", 1,1,8 
650 FOR TS = 1 TO 30 
660 IF INT{RND{1)*2)+1 = 1 

THENH-H + 1:G0T0 670 
665 T=T+1 
670 TEXT263,10,STR$(H),1,1, 

8 
672 TEXT263,20,STR$(T),1, 

1,8 
674 TEXT263,10,STR${H),0,1, 

8 
676 TEXT 263; 20, STR$(T), 0, 

1, 8 
678 NEXTTS 
580 RETURN 



Ejecuta cl programa, entrando 
ahora el 3 para seleccionar la tercera 
prueba. Veras un grafico con una su- 
cesion de puntos que ascienden hasta 
varios puntos elevados sobre la pan- 
talla. Esta es una de las muchas figuras 
posibles en este tipo de analisis. Los 
puntos elevados son el numero de ca- 
ras que se obtienen de 30 lanzamien- 
tos y se trazan a lo largo del eje Y, 
extendidas a lo largo del eje X. Ob- 
serva que hay mas cumbres altas que 
bajas. La razon de esto es que hay mas 
probabilidad de obtener 15, o bien en- 
tre 12 y 17 caras es mucho mas elevada 
que la de obtener un numero menor o 
mayor de caras. Esto mismo es lo que 
puede verse en los niimeros del trian- 
gulo de Pascal, con valores mayores 
justo para los numeros de en medio. 

La Imea 180 establece un bucle para 
extender los puntos elevados a lo largo 
del eje X. La variable GM se inicializa 
a cero y seiiala el numero de juegos de 
30 lanzamientos (linea 190) y se llama 
a una rutina (lineas 610 a 680) donde 
se realiza cada juego de 30 lanzamien- 
tos. Esta rutina emplea los eleraentos 
de la segunda prueba, pero lanza la 
moneda «electr6nica» 30 veces, en lu- 
gar de 100. Cuando ejecutes este pro- 
grama veras que las letras CARA y 
CRUZ aparecen en la esquina supe- 
rior derecha de !a pantalla. Una vez 
realizados los 30 lanzamientos, el nu- 
mero de caras que se acumulan en la 
rutina se someten a una escala en la 
linea 200 y se trazan (PLOT) en la li- 
nea 210 como coordenadas de Y. Para 



54 INPUT 



I 




Pmgtamacion 



sacar todo el jugo de este estudio, pre- 
cisas ordenar la informacion de modo 
que oblengas una de las mas conocidas 
curvas estadisticas: la de distribucion 
normal. Escribe estas pocas Iineas y 
veras la curva de que te hablamos: 

450 REM. DISTRIBUCION 

NORMAL 
460 HIRES 0,1:DIM G(30) 
470 LINE 0,0,0,200, 1:LINE 0, 

200,320,200,1 
480 GOSUB 560 
485 GETA$:IF A$<>" " 

THEN485 
490 END 
560 REM GR 
565 DEFFN N{X)=1/(EXEC 

*1.4142*2,718tC(Xt2)/2)) 
570 FOR X=l TO 320 
580 PL0TX,199^(FN N ((X-16(3)/ 

24)*530),1 
590 NEXTX:RETURN 

Ej acuta el programa y entra un 4 
para ver una curva ideal del tipo dis- 
tribucion normal. La linea 460 da di- 
mension a una tabla, necesaria mas 
adelante para guardar en ella la cuenta 
de caras obtenidas. La linea 470 di- 
buja dos ejes de coordenadas X-Y, y 
la linea 480 llama a una rutina para 
que dibuje la curva. Este rutina em- 
plea una funcion matematica (linea 
580) para dibujaria, lo cual cxplica su 
forma Ideal: une todos ios puntos para 
obtencr una curva bien alisada. La 
funcion esta definida en la linea 560. 
No pulses todavia ninguna tecla, pues 
la rutina esta incompleta y te dara 
error. 

Muy rara vez puede obtenerse una 
curva pcrfecta al representar ia infor- 
macion de Ios datos disponibles. Esto 
es de esperar, pues estas tratando pro- 
babilidades, no certezas. La probabi- 
lidad de un suceso (como, por ejem- 
plo, la de tener lluvias torrenciales du- 
rante el periodo monzonico en la In- 
dia) es elevada, pero ban existldo pe- 
riodos en que lo que se ha dado es 
sequia en lugar del esperado diluvio. 
La siguiente prueba ilustra perfecta- 
mente este punto. Lo que hace es re- 
petir el experimento un buen niimero 
de veces y representar graficamente 



Ios resultados. Escribe la segunda 
parte de nuestra cuarta prueba: 

490 FOR GM = 1 TO 200 

500 GOSUB 610 

502 TEXT50, 0,STR$(G1),0,1,8 

504 TEXT263,0,STR${G2),0,1,8 

510 G(H) = G(H)+1 

520 PLOT H*10+10,200- 

G(H)*4,1 
530 TEXT50,0,STR${GM),1,1, 

8:G1=GM 
532 TEXT 263, 0,STR$(H), 1,1, 

8:G2 = H 
540 NEXTGM 
550 GOTO 550 

Ejecuta ahora la cuarta prueba dc 
nuevo. Una vez dibujada la curva 
ideal, pulsa la barra espaciadora o 
SPACE para iniciar el lanzamiento. 
Observa ahora la serie dc puntos que 
va «creciendo» hasta llenar el espacio 
dentro de la curva. Cuando se com- 
pleta la prueba, se habran dibujado 
200 puntos (PLOT de la linea 490)'. En 
algunos micros, y el Commodore 64 es 
uno de ellos, el tiempo que se invierte 
en este experimento es de varios mi- 
nutos. Esta cs la razon por la que se 
ha escogido este niimero de 200 en lu- 
gar de otro mas alto, como el 500 en 
la linea 490. 



Esta parte del programa llama a la 
rutina (linea 500) que lanza la moneda 
300 veces de modo que, al igual que 
sucedia en la tercera prueba, Ios lan- 
zamientos son iluminados en la parte 
superior derecha de la pantalla. Cad a 
serie de 30 lanzamientos es un juego, 
y puede dar un numero cualquicra de 
caras entre y 30. 

Mediante la tabla, ia linea 510 
guarda la cuenta de Ios resultados de 
cada juego. Por ejempio, cada vez que 
el resultado de un juego es 11 caras, 
la casilla G (11) se incrementa en una 
unidad, y lo mismo pasa con la G (15) 
si el resultado fue de \5 caras. Al ini- 
cio todas las casillas estan a 0. 

Tras cada juego, la linea 520 somete 
a escala el valor de cara (el numero de 
caras en 30 lanzamientos) para obte- 
ner las coordenadas X e Y. La si- 
guiente vez que sucede el mismo re- 
sultado se traza un punto en la misma 
posicion de X, pero una unidad mas 
adelante en el eje de Y. La linea 530 
guarda la cuenta de H para cada 
juego, y tambien ia cuenta del numero 
de juegos efectuados. 

EMPLEO DE LA CURVA 

Ejecuta la cuarta prueba unas cuan- 
tas veces para ver como varia el perfil 
de Ios puntos dentro de la curva, y 




despues haz lo mismo pero con valores 
finales de GM mas pequenos (linea 
490). Aun sin la curva ideal, pronto 
podras imaginar una curva idealizada 
a traves de los pantos elevados. En la 
practica, sin embargo, la inversa de 
este proceso imaginario es lo que re- 
sulta de un inmenso valor: sabiendo el 
perfil de una curva, predecir los re- 
sultados de un experimento future. 

El valor de cara en un punto central 
es de especial interes. Es la denomi- 
nada media matemdtica, de los 31 va- 
lores cara posibles a lo largo del eje X. 
En este caso, es 15. La media se iden- 
tifica con ei punto maximo de la curva. 
Es el valor con mayor probabilidad, 
pero no es util por si mismo. Se puede 
decir que 15 es lo mas probable, pero 
tambien diremos que 14 y 16 son casi 
tan probables. Hay varios valores co- 
munes en torno al maximo, y esto si 
que es util: saber su grado de disper- 
sion. Por tanto, la media se utiliza 
para especifiear otro parametro de vi- 
ta! importancia: la desviacion tipica, o 
la medida de la dispersion. La formula 
de la desviacion tipica es complicada, 
pero no sin razon. Una vez calculado 
este parametro, puedes asignar pro- 
babilidades a todos los puntos de la 
curva. 

La desviacion tipica es una medida 
de la variacion de los valores a am bos 
lados de la media. Por ejemplo, una 
seccion de la curva con una desviacion 
de 1,96 en cada lado de la media in- 
cluira el 95 % de los resultados. Si am- 
plias la variacion tipica a 2,58 la curva 
incluira el 99 % de los resultados. Si 



empleas un software de estadisticas 
comerciales, la obtencion de la desvia- 
cion tipica es superfacil. 

UN CASO CON SEIS SUCESOS 

Hay much OS ejemplos de experi- 
mentos que tienen mas de dos sucesos 
posibles, cosa que no ocurria en el lan- 
zamiento sencillo de una moneda. En 
estos casos, determinar la probabili- 
dad de un suceso no es tan facil, ni se 
soluciona recurriendo a la respectiva 
fila del tndngulo de Pascal. Por ejem- 
plo, en el caso de un dado, al tirarlo 
puedes obtener seis posibles resulta- 
dos. Si el dado no esta cargado, los 
seis resultados tienen la misma pro- 
babilidad. ^Y los posibles resultados 
de tirar dos dados? Se pueden enu- 
merar mediante una tabla, pero siem- 
pre has de notar que cuantos mas re- 
sultados posibles haya mas complicada 
es la tarea de determinarlos. 

He aqui una tabla de todos los re- 
sultados posibles al tirar un par de da- 
dos a la vez: 







Valor del primer dado 






1 


2 


3 


4 5 6 




1 


2 


3 


4 


5 6 7 


Valor 


2 


3 


4 


5 


6 7 8 


del 


3 


4 


5 


6 


7 8 9 


segundo 


4 


5 


6 


7 


8 9 10 


dado 


5 


6 


7 


8 


9 10 11 




6 


7 


8 


9 


10 11 12 



Como puedes ver, hay 36 posibles 
resultados (seis filas por seis colum- 



nas) aunque solo 11 son dife rentes 
Pero hay mas cosas que se deducen de 
esta tabla. Solo hay una posibilidad 
contra 36 de obtener la suma mas baja 
o la suma mas alta (2 y 12 solo apa- 
recen en la tabla una vez), mientras 
que hay seis posibilidades contra 36 (o 
sea 1/6) de obtener 7 de suma. Y hay 
tambien 6 posibilidades contra 36 de 
obtener un doble. Es lo que ofrece la 
diagonal que va desde el numero 2 
(doblc de doses) hasta 12 (doble de 
seises). 

TIRADA MULTIPLE DE DADOS 

Combinando el teorema binomial y 

esta tabla, puedes calcular las proba- 
bilidades de muchos experimcntos. 
Un buen ejemplo de tirada multiple 
de dados se encuentra en el juego del 
Monopoly. Si caes en la carcel, tienes 
tres oportunidades para obtener un 
doble, de lo contrario has de pagar 
una fianza. Intuitivaraente pareceria 
que tienes un 50 % de probabihdades 
de salir de la carcel (3 tiradas, con un 
1/6 de probabilidad cada vez), pero no 
es asi. En la -tabla puedes ver que la 
probabilidad de que no obtengas un 
doble en cada tirada es de 30/36 (5/6). 
Con el teorema del binomio, puedes 
ver que la posibilidad de no obtener 
un doble las tres veces juntas es 5/6 
elevado a 3, o sea 125/216. Lo que da 
alrededor de un 58 % de posibilidad 
de fracaso, por tanto si tu dinero te lo 
permite, mejor que no tientes a la 
mala suerte y pagues la fianza para li- 
brarte de la carcel. 
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GANADORES DE LOS MEJORES DE INPUT COMMODORE 


En el sorteo corresponctiente al numero 


19 entre quienes escribistels mandando vuestros votos a LOS 


MEJORES DE INPUT han resultado ganadores: 




NOMBRE 


LOCALIDAD 


JUEGO ELEGIDO 


Carlos Santolaya Garcia 


Sta. M.' de Montcada {Barcelona) 


GAUNTLET 


J. Ignacio Luengo Crespo 


Alcorcdn (Madrid) 


WORLD GAMES 


Jesus Losada Prieto 


Benavente (Zamora) 


DAN DARE 


David Tibau Llinas 


Lloret de Mar (Girona) 


ASTERIX 


Andres Lopez Pascual 


San Juan (Alicante) 


EL NINJA 


Gabrie! Maldonado Suarez 


Almeri'a 


TWO ON TWO 


Hilario Garcia Ostos 


Penarroya (Cordoba) 


TWO ON TWO 


Santiago Delgado Llopis 


Madrid 


EXPRESS RAIDER 


Mariano Alcazar Cano 


Elche (Alicante) 


MARBLE MADNESS 


Ruben Rodriguez de Torres 


Vigo (Pontevedra) 


LCP 
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MAYO 1987 



tiomrhodore 



PUESTO TITULO 



Comando 

Green Beret 

Uridium 

Sky Fox 

Rambo 

Dragon's Lair 

Spindizzy 

Leader Board Golf .. 
Dentro del Laberinto 
Marble IVIadnes 



100,0 % 



ELIGE TUS PROGRAMAS 

Memos pensado que es interesante disponer de un ranking que ponga en cla- 

ro, ines a mes, cuales son los programas preferidos de nuestros lectores. Para 

ello, es obligado preguntaros directamente y tener asi el mejor termometro para 

conocer westras pieferencias. Podeis votar por cualquier programa aunque 

no haya side comentado todavia en INPUT. 

El resultado de las votaciones sera publicado en cada niimero de INPUT. 

Entre los votantes sortearemos 10 cintas de los titulos que pidais en vuestros 

cupones. 

Noia: No es precise que corteis la revista, una copia hecha a maquina o una 

simple fotocopia sirven, 

Enviad vuestros votos a: LOS MEJORES DE INPUT Aribau, 185. Plantal. 08021 Barcelona 
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COM. N.°19 



Que ordenador tienes |C|Q|M|M|OiD|0|R|e| -|6|H|C| 
Nombre |?^|ol i |6|£|S| |A| u|S|u|^j rjOl | j 



1?' Titulo elegido INI 
2f Titdo elegido MM 
3r Titdo elegido Mil 

Programa que te gustaria conseguir |A|L|t| |o|f | |AiC|£| 2? Apellido |V| i I ^| i-|A|f^l I i I 

Fecha de nacimiento I ^[2 | - [HA 1 1^|3 |o h | ir?l >l--^l MM Telefono I 
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SOFTACTUAUDAD 



INDOOR SPORTS 

El juego que os comentamos cs un 
simulador: pero no de vueto, se trata de 
una simulacion de deportes de sal a 
como [OS bolos, los dardos o el criquet. 

Posiblemente, si este juego sc 
hubiese prodacido en nuestro pafs 
simitlaria otro tipo de juegos que tienen 
muchos mas segiiidores que los que 
aqui comentamos. 

La eleccion del deporte de sala que 
quiei-es practicar se efectda de tbmia 
muy original. Los graficos son 
simpaticos y cuentan con una buena 
animacjon. For ejempio, al jugar a los 
bolos la escena se divide en dos paries, 
una, la primera, en la que elcgimos la 
trayectoria y el angulo de tiro y, otra, la 
segunda, en la que presencias el 
impacto sobre los bolos. 



LEADER BOARD II 

EI exito alcanzado por las dit'erentes 
versiones de este juego en los distintos 
sistemas ha convencido a ACCESS de 
la nccesidad de reaJizar un remake de 
su celeberrimo juego de golf. 

Sin embargo, no se trata de una 
simple adaptacion del anterior pues, 
respecto ai anterior, inciuye incontables 




e interesantcs mejoras. Desde la 
posibiiidad de cambiar los hoyos, los 
recorridos e, incluso, el paisaje. Incluso 
se aprecia eomo los ai-boles impiden la 



pcrfecla vision del recorrido de la 
pelota, lo que le da una proximidad con 
el juego real muy interesante. 

Los campos tambien incoiporan 
autenticos bunkers. Caso de que tus 
pelotas caigan en ellos, vas a pasarlo 
bastante mal hasta que consigas salir. 

Ademas de estos detalles tambien 
destacan la posibiiidad de graduar la 
fuerza con la que goipear la pclota, o 
los cam bios de trayectoria de la pelota 
segun cuales sean las caracteristicas de 
la zona que este atravesando. 



PRINT SHOP 
COMPANION 

Los habituales de INPUT' ya sabeis 
que much as veces nos gusta comentar 
programas que aunque no sean los 
clasicos j'uegos consideramos puede ser 
interesante que los lectores conozcan su 
existencia. Hace poco publicamos un 
artfculo sobre software para impresoras. 

En el comentabamos un programa de 
la casa BERKELEY, muy parecido al 
PRINT MASTER de 
BgpDERBUND. Finalmente, esta 
ultima acabo denunciando por «piagiQ» 
a la primera. Denuncia que gano. 

Por lo que pudiera siiceder 
BORDERBUND decidio ampliar 
considerablemente su programa. El 
resultado de esa decision es el PRINT 
SHOP COMPANION. En ei se 
incorporan una docena mas de nuevos 
tipos de letras, un generador de 



THE PRINT SHOP 
_COriPONlON 



o»l«. 



OR, USE JOYSTlCK-crg K^'SLrPOD, 



FONTS (tipos), un generador de 
fondos de papel. un generador de 
RECUADROS, dc FILLS y, por 
ultimo, un generador de graficos que 
pemiite rccuperar los dibujos generados 
con DODDLE y algunas mas^ 



DROAMPLIA 
HORIZOIMTES 

Parece ser que !a prestigiosa firm a 
australiana Melbourne acaba de ser 
comprada por la destacada casa 
ingiesa Mastertronic. 

Aunque el precio no nos ha sido 
comunieado parece ser que la suma 
ha sido muy, muy sustaneiosa, 
recordad que algunos titulos miticos 
para algunos micros provienen de 
esta casa, baste mencionar el 
Exploding Fist 1 y 11, Hobbit, etc. 

Parece que la casa Dro Soft 
empezara a partir de ahora a 
comercializar los productos de esta 
prestigiosa firma. 



ACCOLADE GAMBIA 
DEDUENO 

Tom Frixina, ei antiguo Chairman 
de la excelente casa Accolade, ha 
abandonado tan famosa firma. A 
partir de ahora se hara cargo de la 
misma el segundo de a bordo, que 
recordareis era ex programador de la 
famosa casa Acti vision. 

Esperemos que los cam bios de esta 
compani'a no haran cambiar la 
calidad de los programas que ya son 
clasicos por el esmero que muestran 
en la calidad grafica y la animacion. 
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MASTERS DEL 
UNI VERSO 



• us GOLD 



ARCADE 



Muchas han sido las adaptaciones 
de peltculas y de maquinas 
recrcativas transportadas al 
ordenador. Pero hasta ahora nunca 
habiamos visto un programa de 
ordenador, como el que os 
presentamos, basado en los infantiles 
munecos de MASTERS DEL 
UNIVERSO. 

El protagonista, como siempre, 
eres tti, investido ahora con los 
atiiendos de GRAYSKULL, el 
intfepido heroe deslacedor de 
entuertos y en lucha constante por 
devolver la paz y la libertad al 
magico reino de ETERNIA. 

El malvado antagonista, que hara 
todo lo posib!e para dcstruirte, es 
SKELETOR, senor de una legion de 
infames y perfidos esbirros y dueno 
deifeudo de SNAKE. 

Estc, robando una magica gem a, 
ha senibrado el caos y conquistado tu 
supuestamente inconquistable 
Castillo, ambieionando dominar el 
universo con siniestros propositos. 

Nuestra mision sera recuperar la 
joy a y devolver el bienestar al 
mundo. Pero antes de lograr llevar a 
cabo nuestro objetivo deberemos 
afrontar una continua pesadilla de 
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stAcm^ status; 
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batallas y trampas, todo en favor del 
bien. 

Solos ante el peiigro, deberemos 
buscar, en primer lugar, al brujo 
ORKO, fiei amigo nuestro, que 
quedo encerrado en una torre del 
Castillo por un error de los conjuros 
que ianzo contra las nialefieas hordas 
que atacaban al castlllo de 
GRAYSKULL. Una vez rescatado ' 
dicho mago, nos sera de gran ayuda 
si queremos evitar ser alcanzados por 
los innumerables sortilegios y 
conjuros que nos enviara 
SKELETOR- Solo nosotros podemos 
rescatarie y solo e! puede ayudarnos. 



Esa sera nuestra mas importante 
mision, antes de alcanzar ia libertad 
del territorio de ETERNL\. 

Como habreis pddido iniaginar, 
este juego se desarrolla en medio del 
fabuloso castlllo dc GRAYSKULL. 
Salas, mazmorras, torres, almenas,.. 
seran nuestro objetivo. De paso, 
todo eUo sembrado de trampas y 
demon facos enemigos, miembros de 
la guardia de SKELETOR. Contra 
ellos la unica arma de la que 
disponemos eS la BSPADy\ 
DESTRUCTOR A, que atomizara 
todos los pod eres malignos antes de 
llegar a buen fin nuestra tarea. 

Os advertimos, por ultimo, de una 
cosa mas: atencion a las flechas, que 
nos iran quitando energia vital. 
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PARK PATROL 



FIREBIRD 



ARCADE 



Hay que ver que eosas mas raras 
ban pasado en el parque 
PAPATOETOE. 

El antiguo guardian del parque ha 
tenido una crisis dc nervios y el 
parque no puede quedar sin 
vigilante: hace faita un sustituto. 
Esperamos que quieras aceptar el 
reto de ser el nuevo guardian del 
lugar. 

Lo unico malo del parque es que 
esta plagado de serpientes, 
hipopotanios, y otras bestias salvajes 
que tendras tiempo dc sobra de 
conocer. 

Tu trabajo es conservar el lugar 
limpio y tranquiio, evitar accidentes 
cuidando de que 
ios banistas no se 
extravien, o saKar 
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ios que se hallen 
en peligro (en este 
caso aparecera 
un HELP 
parpadeando en la 
parte inferior de 
la pantalla). 

Ojo, porque el 
parque esta repleto 
de rubies de valor 
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que te daran puntos y tamblen ve 
con cuidado con las lanchas; el rfo 
que bordea PAPATOETOE es muy 
peligroso y plagado de misteriosas 
rocas que haran que quizas vuelque 
el barco en el que lleves al pobre 
banista que hayas salvado, Recuerda 
que tu no sabes nadar. 

Una vez mas Firebird, la gran 
multinacional del software, nos ha 
prcsentado un juego de calidad, que 
combina multiples escenarios y 
diferentes acciones, a tin de que no 
te aburras. La originalidad del juego, 
concebido en un parque, tambien 
merece destacarse. 

Con toda seguridad muchos de 
vosotros OS vais a encandilar f rente a 
vuestra pantalla, intentando 
control ar a esos ani males que, 
cuando Ios veis en el zoo de vuestra 
•localidad tan solo parccen seres 
somnolientos. 
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DESTROYER 

• EPYX ■ JUEGO 



A DISCO 



Para jugar con este programa debes 
tener en cuenta que el Destructor 
que comandas desplaza 3.050 
toneladas, dispone de 16-000 galones 
de agua potable y sus 60.000 cabalios 
te permitiran desplazarlo a 36 nudos 
marinos de velocidad si la mar es lo 
suficiente mansa, y con una 
autononiia de crucero de unas 6.000 
millas, 

Ademas dispo nemos de un buen 
arsenal belico, del que dcstacan: 5 
caiiones de 50 mrn, 10 antiaereos, 7 
canones de 20 mm, 10 torpedos del 



juegos de Epyx (con el Gi-JOE que 
todos conoceis) que solamente saldra 
en format o disco, ya que 
continuamente recurre a cargar 
pantallas desde ei disco, que dicho 
sea de paso, utiliza !os famosos 
ficheros VORPAL de los que 
hablamos en un numero anterior. 
Son en total 15 las pantallas que se 
obtienen tecleando un cddigo de dos 
digitos en una iinea de estado que 
aparece en la parte inferior de la 
pantalla, asi obtendras la vista del 
radar, o bien, una preciosa pantalla 
de estado de la nave que te sera de 
ayuda para remendar situaciones de 
peligro. 






iiieHm: CHUCK sammcR«n-»-E 



Segun la mision, las pantallas por ias 
que puedas optar van cambiando, 
veras como desde la pantalla del 
puente puedes observar como sc van 
acercando los aviones y como vas 
acertando con tu bateria anliaerea. 
El grafismo es realmente excelente, 
y la animacidn, tal eomo viene 
siendo tradicion en Epyx, se puede 
calificar, sin exageracion. como 
soberbia. Una vez mas, esta firma 
de software no ha dejado de 
sorprendernos con esta supcrnovedad 
de la que ofrecimos oportunaniente 
una primicia en la seccion 
SOFT ACTU ALIDAD . 







ANIMACION 


9 


INTERES 


9 


GRAFICOS 


10 


' COLOR 


10 


SONIDO 


7 


TOTAL 


45 



21, 2 railes de ejectores de cargas de 
profundi dad dotados de 10 
lanzaderas. Todo esto e incluso mas 
te sera necesario para poder llevar a 
Cabo Con alguna probabilidad de 
exito la mision que te acaba de 
encomendar la marina amehcana en 
un momento: destruir el maximo de 
barcos, submarines, transportes, etc. 
del enemigo. 

Efectivamente, las posibies misiones 
que te podran ser encomenlladas, 
son desde la caza de un submarino 
hasta la participacion en un bloqueo 
naval, pasando por la cscolta de un 
convoy, o el reseat e de una go 1 eta 
Este es quizas uno de los pocos 

62 INPUT 




/ Software 



KONG 

• OCEAN ■ ARCADE 

Vale la pen a preguntarse por que se 
ha habiado tan poco en los medios 
especializados en videojuegos, sobre 
uno tan conocido como este que 
comentamos. 

Kong, el protagonist a, es un 
jugueton gorila que se ha encaruiado 
tanto dc tu amiga que la ha raptado. 
Como eres un hombre valiente y 
ante todo cabaileroso debera::, ir a 
rescatarla y para ello veneer a! gorila 
en cada una de las cmco fases de que 
consia este juego. 
En la primeia tasc Kong to pondra 

ditieii y pcligrtKa 
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la escalada hasta 
donde se encuentra tu nuvia. 
Mientras Kong te tirara bar riles, lo 
dificil es saltarios, pcro cuando haya 
mas de uno y seas capaz de saltarios, 
veras que obtendras mas puntos: 500 
por dos objetos y 800 por tres o mas. 
Aunque si lo que quieres es recoger 
puntos no cabe duda de que 
obtendras muchos mas si logras subir 
a toda prisa evitando coger unos 
martillos que veras colgados del 
techo y que te permitiran aplastar los 
barriies. La segnnda fase es quizas la 
mas diftcil de todas y dcberas fijarte 
mucho en el memento en que pasa ei 
nlartiUo que te tira siempre, con muy 
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maia espina, Kong. En la tercera y 
cuarta fase todo se coniplica con la 
aparicion de unas llamas que parecen 
vivas y muchas veces te dejaran 
maltrecho. 

Se trata de un juego que siempre ha 
sido muy vibrant e desde su creacion 
por la casa ATARI. 
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SUPER HUEY II 

e us GOLD ■ SIMULADOR DE VUELO 

Aqui nos encontramos f rente a uno 
de los principales simuladores de 
vuelo para helicopteros del rnercado. 
Esta concebido coino una emulacion 
de! famoso UH2X, incorporando 
mas de 50 comandos y ayuda para e! 
vuelo, ademas de una completa serie 
de opciones que mas adelanle vamos 
a dcscribir detalladamente. 
Sin duda, el elemento distintivo de 
este prograina es la diversidad de 
misiones, tanto suicidas conio de 
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MAD NURSE 

• FIREBIRD ■ JUEGO 

El parvulario se ha convertido en un 
manicomio de la noche a la manana. 
Til, como canguro cspecializado, 
deberas cuidar, mientras no pierdas 
la paciencia y la energia, de tres 
plantas repletas de tiernos y 
angelicaks infantes. 
Los iiigenuos querubines intentaran 
hacerte ei trabajo imposible per 
medio de inocentes travesuras tales 
como: salirse de la cuna, ingerir 
biberones sin prescripcion facultativa 
o, en el mejor de los casos, meterse 
en ios ascensores para que tu tarea 
resulte mas insoportable. Sus salidas 
en grupo haran, en mas de ana 
ocasion, que prefieras graves 
amarguras. Tus unicas arraas para 
contrarrestar tan infernal ofensiva 
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rescate en zonas peligrosas. En !as 
misiones suicidas deberas impedir 
que un loco y peligroso terrorista 
logre destruir las bases de una 
determinada area de la que se te ha 
encargado la proteccion. Las 
misiones de rescate tienen como 
escenario exoticos iugares que van 
desde el Poio Norte hasta una 
plataforma petrol if era en medio 
del Pacffico, La verdad es 
que este es un helicoptero 
muy versatil y esto hace que 
sean muchos los mandos que 
debemos controlar y los indi 
dores de los que debemos 
estar atentos. Pero en ios 
momentos de mayor difi- 
cultad po demos hacer uso de 
automStico para concentrar nuestros 
esfuerzos en tareas como la extincion 
de incendios. 

Bien seguro que los aficionados a los 
simuladores de vuelo sabran 
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reconocer la calidad 
de este progr;jma. Ademas podran 
gozar de tnda la informacion 
necesaria para pi lota jc del 
helicoptero gracias a un com pie to 
manual del que se nos hace entrega 
al c<3mprar cl programa. 



seran unas botellas de gas 

tranquilizantc y un ascensor pret-a- 

porter pa a cambiar de plantas. 

Conforme ios vas metiendo en sus 

cunas veras como 

van apareciendo 

cad a vez mas y 

mas legiones de 

incansables ninitos. 

La locura se ira 

apoderando dc ti. 

Practicando de 

manera 

perseverante, ya . 

estaras en 

condiciones de 

apreciar por ti 

mismo si, en lugar 

de convertirte en 

una niriera «presa 



de !a !ocura», te constituyes en un 
«canguro» de nervios de accro 
ante las diabiuras de los pequeiios. 
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• MASTERTRONIC 



ARCADE 



Sera etite un programa que hara las 

delicias de ios amantes del manejo 

del joystick: vagaremos, a gran 

velocidad. por un escenario repleto 

de hostiles hordas de atacantes, 

disparando sin cesar en el intento de 

acabar, al preeio que sea, con ellas. 

Tiros cruzados, disparos megatonicos 

nos haran el trabajo mas dificil de lo 

que inicialmente pensabanios. 

Los graficos, 

dentro de la 

teniatica y del 

planteamiento, son 

bastante buenos. 

EI mo vi mien to e 

hipervelocidad, 

alucinantes. 

Come date 

ilustrativo, te 

informan'tos que 

pod, en 

castellano, 

signit'ica 

«manada». 
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GRAFICOS 


5 


COLOR 


6 


SONIDO 


7 


TOTAL 


32 



CURSE OF 
SHERWOOD 

• MASTERTRONIC 



ARCADE 



Robin de Ios Bosqucs debe expulsar 
de ia foresta al malvado Cult. 
Pero realmente hay poco que haeer 
contra tan perfido personaje; lo 




unieo y primordial es cncontrar un 
exorcismo que sera el que logre 
evaporar a tan lamentable individuo. 
Los gral-icos recuerdan bastante al 
programa ROBIN OE 
SMERWOOD: e! scroll del 
protagonista esta muy bien realizado 
sob re un fondo negro que represent a 
al bosque. Las dificultades que 
atravesaremos seran numerosas y 
dificiles: el bosque esta phigado dc 
peligros, entre ellos las infames 
tram pas de Ios sicarios a sueldo de 
CLfLT que di spar an sus certeros 
dardos antes de preguntar quien 
eres. Suerte y atencidn a Ios puentes, 
esconden innumerablcs trampas. 



ANIMACION 


7 


INTERES 


7 


GRAFICOS 


6 


COLOR 


6 


SONIDO 


6 


TOTAL 


32 



INPUT 65 



'y-^mtf^i^ 



C^iibio program as en disco para C-64. 
Sah/ador Pou. P.' Dr. Maragas n° 204. 
BarbefB del Valles. (08210). Barcelona. 

Vendo C-64, Datassete C2N, 400 pro- 
gi^nraasdetodotipo, 2 joystick, revistas 
y Hiros sobre Commodore. Todo por 
^lOOO pts. Narciso Quintana Varo. 
PlaeaBuigas, 2, 5.= 1.^Ce^da^vola. Bar- 
csiona. TI: 6916646. 



CiNB|Mu&-64, cassette y joysticl^; inter- 
lace midi Y programas Midi com poser 
€ie MICROMUSIC o similar. Gabriel 
KaziApdo. 93045. Barcelona 08080. TI: 
f93> 2179080. 



mbfo programas de todo tipo en 
: is %i C-64. Dispongo de una am- 
r- T::Bd de programas. David Ra- 
;--^ : Nuria,79, 1.° 1.^ Montcada 
^: : :i10 Barcelona. TI; 5641203 



Vendo cartucho SIMON'S BASIC con 
instnjcdones. TI : (93) 3356333 a parti r de 
'ss 21.20 h. Amaocio Perez. Barcelona. 

Iittercambro de programas para el C-64. 
^■': "las novedades. Jorge Petna. Avd. 
==■-= 5IO, 114, 5.", 2.^ esc. dcha. Barce- 
'z-3 08015. TI: 3299281. 



Vendo C-64, datassette, manual del 
-sjsrio (castellano), libros especializa- 
I3S 2), revistas, juegos muy buenos y 
I'cgramas de utilidades. Todo en per- 
*5c-o estado, Precio a convenir. Eduardo 
Dorgambide. C/ Gasset, 23. Puebia del 
Caraminal. La Coruna. TI: (981) 830410. 

Cambiamos programas y juegos para 
el C-64 (preferentemente de calidad). 
Interesados ponerse en contacto con 
Manel Soriano. C/ Castellar, 82. Saba- 
aelL Barcelona TI: (93) 7160730. 

Vendo impresora SEIKOSHA GP-100VC 
especial commodore. Como nueva. Por 
solo 25.000 pts. Regalo ademas 300 
>egos en cinta para el C-64. Llamar 
--lartanas de 8 a 3. TI: (93) 3023200 ext. 
280. Gabriel Reina. 



Me gustarfa forma un Club de amigos 
del C-64 para cambiar ideas para la 
compra-venta y el intercambio de jue- 
gos. Los chicos/as tienen que tener una 
edad entre los nueve y los trece anos. 
A ser posible que vivan cerca de Sant 
Andreu. Juan Antonio Fdez. C/ Condesa 
Pardo Bazan, 15, Ate. 3.'. Barcelona 
08027. TI: 3498113. 



Cambio todo tipo de programas para el 
C-64. Tambien me interesan pequenos 
trucos. Luis Tapia Jimenez. C/ NR Los 
Principes. La Fontanilla, 3. 41009 Sevi- 
lla. 



Intercambio utilidades en disco para el 
C-64, C-128 y CP. M. Antonio Gonzalez. 
C/ Lorena, 65-67 7."^, 2.^ 08031 Barce- 
lona. TI: (93) 3592300. 

Vendo material para el C-64, 128. Hay 
revistas, libros y juegos. Si os interesa 
dirigiros a: Oscar Fdez, Orallo. Pza. La 
Fortaleza, 11, 4.°. 24400 Ponferrada, 
Leon. TI: (987) 418573. 

Ofrezco 10 juegos a elegir por el pro- 
grama MAGIC DESK I, en cinta. David 
Guerrero Dfaz. C/ Emilio Santacana, 5. 
Algeciras. Cadiz. 

Cambio/vendo juegos para el C-64. Po- 
seo ultimas novedades. Llamar TI: 
(968) 590357 o escribir a: Tomas Fuen- 
tes (Vlandez. Avda. Constitucion, 63. 
Mazarron (30870) IVIurcia. 



Cambio programas en cinta y disco 
para el C-64 y 128. Xavi Sanahujq An- 
guera. C/Jurats, 5, 4." 43205 Reus. 

Cambio/vendo programas para el 
C-64 en cinta, Poseo las ultimas nove- 
dades, precios muy asequibles. Luis 
San Jose Fernandez. C/ General She- 
lly, 25, 3." D 47013 Valladolid. TI; (983) 
277371. 



Club Intercommodore con mas de 50 

socios espera que tu tambien te apun- 
tes, para ser mas. C. I. C. C/ Algorta, 9 
Buzon, 9. 28019. Madrid. 



Vendo C-64 (nuevo diseno) junto con 
Datasette 1530, ambos con embalajes 
originales, manuales en espanol e in- 
gles y en perfecto estado de conserva- 
cion. Por 55.000 pts. Juan Munoz Faico, 
Avd. Suecia, 4, 30. Valencia. 46010. TI: 
(96) 3699571. 



Intercambio programas para el C-64, 
trucos, experiencias con C-128. Los 
programas preferentemente en turbo. 
Hilario Garcia Ostos. C/ General Queipo 
de Llano, 14. Penarroya Pueblonuevo 
Cordoba. TI: (957) 560231. " 

Intercambiamos juegos, utilidades o 
experiencias. Club de Usuarios de 
Commodore 64. Tenemos ultimas no- 
vedades. Felipe Carrero. Cuarteles, 142 
4." B. TI: 8920746. Aranjuez. Madrid. 

Intercambio juegos en cinta para C-64. Po- 
seo mas de 500, entre ellos parte de las 
ultimas novedades. Luis Poves Valencia 
C/ Prado, 12, 12.° 2.* L'Hospitalet de Llo- 
bregat. 08907 Barcelona. TI: (93} 3355405. 

Cambio juegos-utilidades para el C-64/ 
C-128. Solo discos. Enviar lista a: Javier 
Covarrubias Morales. C/ Portalegre, 27 
2." dcha. 28019 Madrid. 



Intercambio programas para el C-64. 
Poseo mas de 200 programas de gran 
calidad. Interesados enviar lista. Pedro 
Navarro. P.° Almogavares, 28. Saba- 
dell. Barcelona. 



Club de amigos para el C-64 intercam- 
bia programas en cassette. Tenemos 
mas de 100. Creacion de una revista 
para los socios con mapas, cargadores, 
trucos. Jose. Apartado de Correos, 195. 
Lerida. 



Vendo para el C-64 los juegos: Fist y 
Beach Heat II por mil pts. Tambien los 
cambio por otros que me interesen; 
Preguntar por Kelius. TI; (93) 2396149. 

Deseari'a cambiar juegos o aplicaciones 
para el C-64, noches de 8.30 a 10 h Tb 
(93) 6640456. Barcelona. 



66 INPUT 



icKcciona pan li 
loi mcjoiei ielatai de 






: • • ' » . • 



> ? ^ ♦^^t *^ 






ISAAC 



Magazine 



No puedes 
volverte atr^s 

porR. A. Lafferty^ ^ 




h. 



jjML. 





' » • • ^ 



^'^ 






iGard 






>' * H 









CiNCO MINUTOS ANTES DE COMPRAR UN JUEGO A 87 5 ptas^ 
• ECHALEUNVISTAZ0AEST0SJUEG0SDE875ptas. 




VERSION CASSETTE 



SO FTWARE 



ZAFiRO SOFTWARE DIVISION P3seo de la Castellana. ill. 28046 Madrid 
Tel 459 30 04 Tel Barna 209 iS G5. Telex: 22690 ZAFtR E 



SiGUENOS EL JUEGO 



